C SOURCES:
C    Erich Goll, Matthias Ernst, Franzeska Moegle-Hofacker, and Hermann Stoll. 
C    Development and assessment of a short-range meta-GGA functional.
C    The Journal of Chemical Physics, 130(23):234112, jun 2009.



C*****************************************************************************
      pure subroutine ESRC_TPSS_GWS_ERF(rho_c, gamma_cc, tau_c, mu, E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, tau_c, mu
      real*8, intent(out) :: E
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79
      E = 0.0d0
      x0 = rho_c**(-0.333333333333333d0)
      x1 = 0.682784063255296d0*x0
      x2 = 0.194159335344114d0*x1 + 1.0d0
      x3 = 2.14502939711103d0
      x4 = 1d0/x3
      x5 = rho_c**0.666666666666667d0
      x6 = x4/x5
      x7 = 0.564189583547756d0*rho_c**(-0.5d0)
      x8 = 0.826307487110758d0*rho_c**(-0.166666666666667d0)
      x9 = 9.86960440108936d0
      x10 = 0.693147180559945d0
      x11 = -x10 + 1.0d0
      x12 = 1d0/x11
      x13 = x12*x9
      x14 = log(0.5d0*x13/(3.2595509194222925d0*x1 + 0.40691300451752932
     &d0*x6 + 1.4187228164796675d0*x7 + 7.2401019343168302d0*x8) + 1.0d0
     &)
      x15 = x14*x2
      x16 = 2.0d0*x15
      x17 = exp(x16) - 1.0d0
      x18 = gamma_cc**2
      x19 = rho_c**(-4.66666666666667d0)*x18
      x20 = 208.945363813799d0*x19/x11**2
      x21 = gamma_cc*rho_c**(-2.33333333333333d0)
      x22 = 14.454942539277d0*x12*x21
      x23 = 0.00289153318944038d0*x22
      x24 = 1.0d0 + x23/x17
      x25 = log(x23*x24/(x24 + 8.3609641856352646d-6*x20/x17**2) + 1.0d0
     &)
      x26 = -x16 + 1.0d0*x25
      x27 = 1d0/x9
      x28 = x11*x27
      x29 = x26*x28
      x30 = (0.235215882559859d0*x1 + 1.0d0)*log(x13/(7.0945954610727853
     &d0*x1 + 0.81920444870878784d0*x6 + 4.1227361860783676d0*x7 + 15.10
     &5997393829993d0*x8) + 1.0d0)
      x31 = exp(2.0000000000000004d0*x30) - 1.0d0
      x32 = 0.00578306637888076d0*x22
      x33 = 1.0d0 + x32/x31
      x34 = -1.0d0*x30 + 0.5d0*log(x32*x33/(3.3443856742541065d-5*x20/x3
     &1**2 + x33) + 1.0d0)
      x35 = x28*x34
      x36 = x18/(rho_c**2*tau_c**2)
      x37 = x34*x36
      x38 = x26*(0.00828125d0*x36 + 1.0d0)
      x39 = -x38
      x40 = -2.8d0*x38
      x41 = gamma_cc**3/(rho_c**3*tau_c**3)
      x42 = x28*x41
      x43 = 1024.0d0*x15 - 512.0d0*x25
      x44 = 0.001953125d0*x28*exp(-1.0053738478084204d0*mu*x0*x4)
      x45 = x16*x28
      x46 = mu**2
      x47 = (0.508616435555896d0*x46*x6 + 1.0d0)**(-4)
      x48 = 1.41421356237310d0
      x49 = 4.60115111447049d0
      x50 = rho_c**(-1.33333333333333d0)
      x51 = 3.14159265358979d0
      x52 = rho_c**1.0d0
      x53 = 1d0/x52
      x54 = x53/x51
      x55 = (0.0188171922990732d0*x1 - 0.009578475d0*x54 + 0.06763222016
     &45715d0*x6 + 1.0d0 + 0.00126674656487366d0*x50/x49)*exp(-0.6836107
     &611867116d0* x1)
      x56 = rho_c**(-1.66666666666667d0)
      x57 = 0.0837224526465878d0*x56
      x58 = 0.0223069557172962d0*mu**5*x48*x55*x57
      x59 = x1*x46
      x60 = 5.57236303607474d0*mu*x8 + 1.0d0
      x61 = mu**3
      x62 = 2.0d0*x27*(x10 - 1.0d0)*log((6.7683429898050367d0*x59 + x60 
     &+ 3.3926025578013106d0*x61*x7)/(3.1331792677937806d0*x59 + x60))
      x63 = x11*x15
      x64 = 0.000640558526213818d0*mu**8*rho_c**(-2.66666666666667d0)*x6
     &3
      x65 = 0.148394183600699d0
      x66 = x55 - 1.0d0
      x67 = mu**6*(0.0108059179628909d0*rho_c**(-2.0d0)*x63 + 0.01673021
     &67879722d0* x56*x65*x66)
      x68 = 2.28942848510666d0*x49
      x69 = 1.63540853354893d0*x68*(-0.0259335011650457d0*x1 + 1.0d0)/( 
     &0.494402081358784d0*x1 + 0.0524148278841779d0*x6 + 1.0d0)
      x70 = x48*x61*(0.0315054072231411d0*x53*x55 + 0.00111534778586481d
     &0*x57*(x5* x69 + 12.0d0*x51*x52*(-4.49737346725955d0*x1 + 0.825481
     &812223657d0*x6)*exp(-0.28165369188898165d0*x1)))
      x71 = mu**4*(0.00139418473233101d0*rho_c**(-1.0d0)*x65*(-10.902723
     &5569928d0*x3 *(-0.352521395009435d0*x1 + 0.558025705063192d0*x6)*e
     &xp( -0.49698248213959023d0*x1) + 1.63540853354893d0*x68 - x69) - 0
     &.0683590130188305d0*x50*x63 - 0.13157433081915d0*x54*x66)
      x72 = (x45 + x47*(-x58 + x62 - x64 - x67 - x70 + x71))/(x14*x2)
      x73 = x45 - x47*(x58 - x62 + x64 + x67 + x70 - x71)
      x74 = exp(x13*x73) - 1.0d0
      x75 = 3.53536660621036d0*x11**(-3.78d0)*x21*x72**2.78d0
      x76 = 1.0d0 + x75/x74
      x77 = -x28*log(x75*x76/(12.498817040307328d0*x11**(-7.559999999999
     &9996d0)*x19* x72**5.5599999999999996d0/x74**2 + x76) + 1.0d0) + x7
     &3
      x78 = x36*(x26 + x34)
      x79 = -rho_c*(-x44*(x43 - (x39 + 0.011953125d0*x78)*(-x42*(x40 + 0
     &.03346875d0* x78) + 512.0d0)) + x77)
      PBE_value = x29
      PBE_beta_value = x35
      PBE_alpha_value = x35
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(-x44*(x43 - (0.02390625d0*x37 + x39)*(-x42*(0.0669375d
     &0*x37 + x40) + 512.0d0)) + x77)
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = x79
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = x79
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(-x44*(-x26*(0.015625d0*x36 - 1.0d0)*(-x29*x41*(0.04375
     &d0*x36 - 2.8d0) + 512.0d0) + x43) + x77)
      end if
      end subroutine


C*****************************************************************************
      pure subroutine D1ESRC_TPSS_GWS_ERF(rho_c, gamma_cc, tau_c, mu, E,
     & d1E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, tau_c, mu
      real*8, intent(out) :: E, d1E(9)
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411
      E = 0.0d0
      d1E(:) = 0.0d0
      x0 = 1.46459188756152d0
      x1 = 1d0/x0
      x2 = rho_c**(-0.333333333333333d0)
      x3 = x1*x2
      x4 = 0.194159335344114d0*x3 + 1.0d0
      x5 = 2.14502939711103d0
      x6 = 1d0/x5
      x7 = rho_c**0.666666666666667d0
      x8 = 1d0/x7
      x9 = x6*x8
      x10 = 0.564189583547756d0
      x11 = rho_c**(-0.5d0)*x10
      x12 = 0.826307487110758d0
      x13 = rho_c**(-0.166666666666667d0)*x12
      x14 = 1.41872281647967d0*x11 + 7.24010193431683d0*x13 + 3.25955091
     &942229d0*x3 + 0.406913004517529d0*x9
      x15 = 9.86960440108936d0
      x16 = 0.693147180559945d0
      x17 = -x16 + 1.0d0
      x18 = 1d0/x17
      x19 = x15*x18
      x20 = x19/x14
      x21 = log(0.5d0*x20 + 1.0d0)
      x22 = x21*x4
      x23 = 2.0d0*x22
      x24 = gamma_cc*x18
      x25 = gamma_cc**2
      x26 = x25/x17**2
      x27 = exp(x23)
      x28 = x27 - 1.0d0
      x29 = 208.945363813799d0
      x30 = rho_c**(-4.66666666666667d0)
      x31 = x29*x30
      x32 = 8.36096418563526d-6*x31
      x33 = x32/x28**2
      x34 = 14.4549425392770d0
      x35 = rho_c**(-2.33333333333333d0)
      x36 = x34*x35
      x37 = 0.00289153318944038d0*x36
      x38 = 1d0/x28
      x39 = x24*x38
      x40 = x37*x39 + 1.0d0
      x41 = 1d0/(x26*x33 + x40)
      x42 = x37*x40
      x43 = x41*x42
      x44 = x24*x43 + 1.0d0
      x45 = log(x44)
      x46 = 1.0d0*x45
      x47 = -x23 + x46
      x48 = 1d0/x15
      x49 = x17*x48
      x50 = x47*x49
      x51 = 0.235215882559859d0*x3 + 1.0d0
      x52 = 4.12273618607837d0*x11 + 15.10599739383d0*x13 + 7.0945954610
     &7279d0*x3 + 0.819204448708788d0*x9
      x53 = x19/x52 + 1.0d0
      x54 = log(x53)
      x55 = x51*x54
      x56 = exp(2.0000000000000004d0*x55)
      x57 = x56 - 1.0d0
      x58 = x57**(-2)
      x59 = 3.34438567425411d-5*x31
      x60 = 0.00578306637888076d0*x36
      x61 = 1d0/x57
      x62 = x24*x61
      x63 = x60*x62 + 1.0d0
      x64 = 1d0/(x26*x58*x59 + x63)
      x65 = x60*x63
      x66 = x64*x65
      x67 = x24*x66 + 1.0d0
      x68 = log(x67)
      x69 = -1.0d0*x55 + 0.5d0*x68
      x70 = x49*x69
      x71 = rho_c**(-2)
      x72 = tau_c**(-2)
      x73 = x25*x72
      x74 = x71*x73
      x75 = x69*x74
      x76 = 0.00828125d0*x74 + 1.0d0
      x77 = x47*x76
      x78 = -x77
      x79 = 0.02390625d0*x75 + x78
      x80 = -2.8d0*x77
      x81 = 0.0669375d0*x75 + x80
      x82 = x49*x81
      x83 = rho_c**(-3)
      x84 = tau_c**(-3)
      x85 = x83*x84
      x86 = gamma_cc**3*x85
      x87 = -x82*x86 + 512.0d0
      x88 = x79*x87
      x89 = 1024.0d0*x22
      x90 = -512.0d0*x45 + x89
      x91 = exp(-1.0053738478084204d0*mu*x2*x6)
      x92 = 0.001953125d0*x91
      x93 = x49*x92
      x94 = x23*x49
      x95 = mu**2
      x96 = 0.508616435555896d0*x9*x95 + 1.0d0
      x97 = x96**(-4)
      x98 = mu**5
      x99 = 0.0837224526465878d0
      x100 = 1.41421356237310d0
      x101 = exp(-0.6836107611867116d0*x3)
      x102 = 4.60115111447049d0
      x103 = 1d0/x102
      x104 = rho_c**(-1.33333333333333d0)
      x105 = rho_c**1.0d0
      x106 = 1d0/x105
      x107 = 3.14159265358979d0
      x108 = 1d0/x107
      x109 = 0.009578475d0*x108
      x110 = 0.00126674656487366d0*x103*x104 - x106*x109 + 0.01881719229
     &90732d0*x3 + 0.0676322201645715d0*x9 + 1.0d0
      x111 = x101*x110
      x112 = x100*x111
      x113 = x112*x99
      x114 = rho_c**(-1.66666666666667d0)
      x115 = 0.0223069557172962d0*x114
      x116 = x113*x115*x98
      x117 = x3*x95
      x118 = 5.57236303607474d0*mu*x13 + 1.0d0
      x119 = mu**3
      x120 = 3.39260255780131d0*x11*x119 + 6.76834298980504d0*x117 + x11
     &8
      x121 = x120/(3.13317926779378d0*x117 + x118)
      x122 = 2.0d0*log(x121)
      x123 = x48*(x16 - 1.0d0)
      x124 = x122*x123
      x125 = x17*x22
      x126 = 0.00478594012208448d0*x125
      x127 = rho_c**(-2.66666666666667d0)
      x128 = 0.133841734303777d0*x127
      x129 = mu**8*x126*x128
      x130 = x111 - 1.0d0
      x131 = 0.148394183600699d0
      x132 = x114*x131
      x133 = rho_c**(-2.0d0)
      x134 = 1.0525946465532d0*x133
      x135 = 0.0102659822546843d0*x125
      x136 = mu**6*(0.0167302167879722d0*x130*x132 + x134*x135)
      x137 = 0.179587122125167d0
      x138 = 0.175432441092201d0*x106*x137
      x139 = exp(-0.28165369188898165d0*x3)
      x140 = x139*(-4.49737346725955d0*x3 + 0.825481812223657d0*x9)
      x141 = 12.0d0*x107
      x142 = x140*x141
      x143 = 0.494402081358784d0*x3 + 0.0524148278841779d0*x9 + 1.0d0
      x144 = 1d0/x143
      x145 = 0.0259335011650457d0*x3
      x146 = -x145 + 1.0d0
      x147 = x144*x146
      x148 = 2.28942848510666d0
      x149 = x102*x148
      x150 = 1.63540853354893d0*x149
      x151 = x147*x150
      x152 = x99*(x105*x142 + x151*x7)
      x153 = 0.00111534778586481d0*x114
      x154 = x100*x119*(x111*x138 + x152*x153)
      x155 = mu**4
      x156 = 0.13157433081915d0*x130
      x157 = x106*x108
      x158 = x156*x157
      x159 = 0.022020833726518d0*x125
      x160 = 3.10428814221102d0*x104
      x161 = x159*x160
      x162 = 1.63540853354893d0*x149
      x163 = exp(-0.49698248213959023d0*x3)
      x164 = x163*(-0.352521395009435d0*x3 + 0.558025705063192d0*x9)
      x165 = x164*x5
      x166 = 10.9027235569928d0*x165
      x167 = x131*(-x151 + x162 - x166)
      x168 = 0.00139418473233101d0*rho_c**(-1.0d0)*x167
      x169 = x155*(-x158 - x161 + x168)
      x170 = -x116 + x124 - x129 - x136 - x154 + x169
      x171 = x170*x97 + x94
      x172 = 1d0/x4
      x173 = 1d0/x21
      x174 = x172*x173
      x175 = x171*x174
      x176 = x175**2.78d0
      x177 = 8397.87994635719d0*x17**(-3.78d0)
      x178 = 0.000420983227766184d0*x35
      x179 = x177*x178
      x180 = x176*x179
      x181 = x116 + x129 + x136 + x154
      x182 = -x124 - x169 + x181
      x183 = -x182*x97 + x94
      x184 = exp(x183*x19)
      x185 = x184 - 1.0d0
      x186 = 1d0/x185
      x187 = gamma_cc*x186
      x188 = x180*x187 + 1.0d0
      x189 = x176*x188
      x190 = x175**5.56d0
      x191 = x30/x185**2
      x192 = 70524387.5934282d0*x17**(-7.56d0)
      x193 = 1.77226878060434d-7*x192
      x194 = x193*x25
      x195 = 1d0/(x188 + x190*x191*x194)
      x196 = gamma_cc*x195
      x197 = x183 - x49*log(x179*x189*x196 + 1.0d0)
      x198 = x104/x34
      x199 = x114*x6
      x200 = rho_c**(-1.5d0)*x10
      x201 = x1*x104
      x202 = rho_c**(-1.16666666666667d0)*x12
      x203 = (0.546136299139192d0*x199 + 2.06136809303918d0*x200 + 2.364
     &86515369093d0 *x201 + 2.517666232305d0*x202)/(x52**2*x53)
      x204 = rho_c**(-3.33333333333333d0)
      x205 = 0.0134938215507218d0*x204
      x206 = x205*x34
      x207 = x56*(x19*x203*(0.470431765119717d0*x3 + 2.0d0) - 0.15681058
     &8373239d0* x201*x54)
      x208 = x207*x61
      x209 = 0.00578306637888076d0*x35
      x210 = rho_c**(-5.66666666666667d0)
      x211 = x210*x29
      x212 = 6.68877134850821d-5*x31
      x213 = x62*x66
      x214 = x64/x67
      x215 = gamma_cc*x48
      x216 = 0.0784052941866195d0*x17*x198*x54 - 1.0d0*x203*x51 + 0.5d0*
     &x214*x215*( -x206*x63 - x209*x29*x62*(x205 + x208*x209) + x213*(x2
     &06 + x207* x212*x24*x58 + x208*x60 + 0.000156071331465192d0*x211*x
     &62))
      x217 = x216*x74
      x218 = x73*x83
      x219 = x218*x70
      x220 = 0.00674691077536089d0*x204
      x221 = x220*x34
      x222 = x221*x40
      x223 = 0.258879113792152d0*x201*x21
      x224 = (0.27127533634502d0*x199 + 0.709361408239834d0*x200 + 1.086
     &51697314076d0 *x201 + 1.20668365571947d0*x202)/(x14**2*(x20 + 2.0d
     &0))
      x225 = 2.0d0*x19*x224*(0.388318670688228d0*x3 + 2.0d0)
      x226 = -x223 + x225
      x227 = x27*x38
      x228 = x226*x227
      x229 = 0.00289153318944038d0*x29*x35*x39*(x220 + 0.001445766594720
     &19d0*x228*x35 )
      x230 = 0.00144576659472019d0*x36
      x231 = x24*x27*x33
      x232 = 3.90178328662979d-5*x211*x39 + x221
      x233 = x39*x43
      x234 = x233*(x226*x231 + x228*x230 + x232)
      x235 = x41/x44
      x236 = x215*x235
      x237 = 1.0d0*x236
      x238 = x224*x4
      x239 = 2.0d0*x238
      x240 = x17*x21
      x241 = x198*x240
      x242 = 0.129439556896076d0*x241
      x243 = -x239 + x242
      x244 = x237*(-x222 - x229 + x234) + x243
      x245 = x218*x50
      x246 = -x244*x76 + 0.0165625d0*x245
      x247 = 1d0/rho_c
      x248 = 3.0d0*x247
      x249 = 0.0231875d0*x74 + 2.8d0
      x250 = x244*x249 - 0.046375d0*x245
      x251 = x49*x79
      x252 = x222 + x229
      x253 = -x234 + x252
      x254 = 1024.0d0*x238
      x255 = 66.2730531307909d0*x241
      x256 = -x254 + x255
      x257 = -512.0d0*x236*x253 + x256
      x258 = 512.0d0*x45 - x89
      x259 = x258 + x88
      x260 = 0.0158297237324883d0*mu*x104*x17*x91
      x261 = x145 - 1.0d0
      x262 = x144*x261
      x263 = -x162 + x166
      x264 = 0.00232364122055169d0*x133
      x265 = x131*x264
      x266 = 0.0141372897033723d0*x107*x144*x148*x8
      x267 = 0.372017136708795d0*x199
      x268 = 0.117507131669812d0*x201
      x269 = 10.9027235569928d0*x163*x5*x7
      x270 = rho_c**(-0.333333333333333d0)
      x271 = x149*x270
      x272 = 1.09027235569928d0*x271
      x273 = x150*x7*(0.034943218589452d0*x199 + 0.164800693786261d0*x20
     &1)/x143**2
      x274 = 7.26848237132856d0*x165*x270
      x275 = 1.80615420514536d0*x0*x164*x8
      x276 = 1.09027235569928d0*x271
      x277 = x274 + x275 - x276
      x278 = 0.00139418473233101d0*x132
      x279 = x108*x133
      x280 = rho_c**(-2.33333333333333d0)
      x281 = x103*x280
      x282 = x101*(0.113935126864452d0*x110*x201 - 0.0225440733881905d0*
     &x199 - 0.0031361987165122d0*x201 + 0.0047892375d0*x279 - 0.0008444
     &97709915773d0*x281)
      x283 = 0.00302075971817057d0*x127*x240 + x156*x279 - 0.26314866163
     &8301d0*x157* x282 + 4.13905085628136d0*x159*x280 - 0.2173369174628
     &99d0*x160* x238
      x284 = 0.00168899541983155d0*x281
      x285 = x109*x133
      x286 = 0.045088146776381d0*x199
      x287 = 0.00627239743302441d0*x201
      x288 = x284 - x285 + x286 + x287
      x289 = x101*x138
      x290 = x147*x272
      x291 = x146*x273
      x292 = x266 + x290 + x291
      x293 = x153*x99*(2.41662179562687d0*rho_c**(-0.333333333333333d0)*
     &x140 + x105* x139*x141*(-0.550321208149104d0*x199 + 1.499124489086
     &52d0*x201) + x142 + x292)
      x294 = 0.00185891297644135d0*x127*x152
      x295 = 0.00490180588786583d0*x111*x280
      x296 = 0.175432441092201d0*x111*x133*x137
      x297 = x293 - x294 + x295 - x296
      x298 = x100*x95
      x299 = 0.928727172679123d0*x202
      x300 = mu*x201
      x301 = 2.0d0*(x121*(x299 + 1.04439308926459d0*x300) - 1.6963012789
     &0066d0*x200* x95 - x299 - 2.25611432993501d0*x300)/x120
      x302 = x100*x101*x115*x155*x99
      x303 = rho_c**(-3.0d0)
      x304 = mu**7
      x305 = 2.83060463816878d-5*rho_c**(-4.0d0)*x240*x304 + 0.356911291
     &476739d0* rho_c**(-3.66666666666667d0)*x126*x304 - 0.0002905716632
     &40495d0* x112*x155*x303 + 0.037178259528827d0*x113*x127*x155 - 0.0
     &472353356922751d0*x128*x238*x304 + x98*(0.00047750955226877d0* rho
     &_c**(-3.33333333333333d0)*x240 + 0.0278836946466203d0*x127* x130*x
     &131 - 0.0334604335759443d0*x132*x282 - 0.101321183642338d0* x134*x
     &238 + 2.10518929310641d0*x135*x303)
      x306 = x288*x302 - x301*x49 + x305
      x307 = mu*x97
      x308 = x122*x49 + x155*(x158 + x161 - x168) + x181
      x309 = x199*x95/x96**5
      x310 = x308*x97
      x311 = exp(x19*(-x310 + x94)) - 1.0d0
      x312 = x174*x183
      x313 = x30*x312**5.56d0
      x314 = x179*x312**2.78d0
      x315 = gamma_cc/x311
      x316 = x314*x315 + 1.0d0
      x317 = 1d0/(x194*x313/x311**2 + x316)
      x318 = x314*x316
      x319 = x317*x318
      x320 = gamma_cc*x319 + 1.0d0
      x321 = 1d0/x320
      x322 = 0.000982294198121095d0*x204
      x323 = 1d0/x171
      x324 = 0.359841968171091d0*x241
      x325 = 5.56d0*x238
      x326 = x170*x309
      x327 = 3.77054317558771d0*x326
      x328 = x171*x172*x201
      x329 = 0.179920984085546d0*x328
      x330 = x171*x19
      x331 = x173*x224*x330
      x332 = 2.78d0*x331
      x333 = x269*(-x267 + x268)
      x334 = -x284 + x285 - x286 - x287
      x335 = x289*x334
      x336 = x307*(x119*(-x167*x264 + x278*(-x266 - x274 - x275 + x276 -
     & x290 - x291 - x333) + x283) + x123*x301 + x298*(-x293 + x294 - x2
     &95 + x296 - x335) - x302*x334 + x305)
      x337 = 2.78d0*x336
      x338 = x323*(x324 - x325 - x327 - x329 + x332 - x337)
      x339 = x178*x189
      x340 = x177*x322
      x341 = x239 - x242
      x342 = exp(x330)
      x343 = x178/(x342 - 1.0d0)
      x344 = 82883.752878387d0*x17**(-4.78d0)
      x345 = gamma_cc*x190
      x346 = x186*x345
      x347 = x192*x346
      x348 = x184*(-1.35631049481572d0*x182*x309 + x307*(x119*(x265*(x15
     &1 + x263) - x278*(x277 + x292 + x333) + x283) - x298*(x297 + x335)
     & + x306) + x341)
      x349 = -435652.165760595d0*x17**(-2.78d0)*x196*x321*(-x187*x195*x3
     &39*( 246.716759338856d0*x17**(-8.56d0)*x191*x345*x348 + x176*x178*
     &x186 *x344*x348 + x176*x340 + x180*x338 + x193*x30*x323*x346*(-11.
     &12d0 *x238 + 0.719683936342183d0*x241 - 7.54108635117542d0*x326 - 
     &0.359841968171091d0*x328 + 5.56d0*x331 - 5.56d0*x336) + 8.27058764
     &282027d-7*x210*x347) + x189*x322 + x338*x339 + x343* x345*(-x179*x
     &323*(-x324 + x325 + x327 + x329 - x332 + x337) + x340 + x342*x343*
     &x344*(1.35631049481572d0*x326 + x336 + x341))) + x256 - 512.0d0*x3
     &07*(x119*(x265*(-x150*x262 + x263) - x278*(-x261 *x273 - x262*x272
     & + x266 - x269*(x267 - x268) + x277) + x283) - x298*(-x288*x289 + 
     &x297) + x306) + 694.43097334565d0*x308*x309
      x350 = 0.001953125d0*rho_c
      x351 = x310 + x49*log(x320) - x94
      x352 = x31*x39
      x353 = 1.67219283712705d-5*x352 + x37
      x354 = x235*(-x233*x353 + x32*x39 + x42)
      x355 = 512.0d0*x354
      x356 = gamma_cc*x17*x71*x72
      x357 = x356*x69
      x358 = x212*x62 + x60
      x359 = x214*x74*(-x213*x358 + x59*x62 + x65)
      x360 = 1.0d0*x354
      x361 = -x360*x76
      x362 = x356*x47
      x363 = x361 - 0.0165625d0*x362
      x364 = 3.0d0*x17
      x365 = -x249*x360
      x366 = -0.046375d0*x362 + x365
      x367 = x25*x85
      x368 = x17*x317*x321*(-x187*x319*(x180 + 3.54453756120869d-7*x30*x
     &347) + 1.77226878060434d-7*x192*x313*x315 + x318)
      x369 = rho_c*x48
      x370 = -8.4d0*x77
      x371 = gamma_cc*x247/tau_c
      x372 = x247*x25*x84*x93
      x373 = x47 + x69
      x374 = x373*x74
      x375 = 0.011953125d0*x374 + x78
      x376 = 0.03346875d0*x374 + x80
      x377 = x376*x49
      x378 = -x377*x86 + 512.0d0
      x379 = x375*x378
      x380 = -rho_c*(x197 - x93*(-x379 + x90))
      x381 = 0.5d0*x49
      x382 = 0.5d0*rho_c
      x383 = x218*(x216*x382 - 1.0d0*x22*x49 + x244*x382 + x381*x45 - x3
     &81*x55 + 0.25d0*x49*x68)
      x384 = x218*x49
      x385 = x373*x384
      x386 = x375*x49
      x387 = x258 + x379
      x388 = x350*(-x260*x387 + x349 - x91*(x257 + x378*(x246 + 0.023906
     &25d0*x383 - 0.035859375d0*x385) + x386*x86*(x248*x377 + x250 - 0.0
     &669375d0* x383 + 0.10040625d0*x385))) + x351 - x387*x93
      x389 = x230*x63
      x390 = x230*x40
      x391 = x74*(x214*(x32*x62 - x358*x389*x62*x64 + x389) + x235*( 4.1
     &8048209281763d-6*x352 - x353*x39*x390*x41 + x390))
      x392 = x356*x373
      x393 = x369*(x368 - x92*(x355 - x367*x386*(gamma_cc*(x366 + 0.0669
     &375d0*x391 + 0.0669375d0*x392) + x364*x376) + x378*(x363 + 0.02390
     &625d0*x391 + 0.02390625d0*x392)))
      x394 = -x372*(x371*x386*(x370 + 0.10040625d0*x374 - x74*(0.041125d
     &0*x22 - 0.0205625d0*x45 + 0.0669375d0*x55 - 0.03346875d0*x68)) + x
     &378*( 0.0146875d0*x22 - 0.00734375d0*x45 + 0.02390625d0*x55 - 0.01
     &1953125d0*x68))
      x395 = 0.015625d0*x74
      x396 = x395 - 1.0d0
      x397 = 0.04375d0*x74
      x398 = x397 - 2.8d0
      x399 = x398*x50*x86
      x400 = -x399 + 512.0d0
      x401 = x396*x400*x47
      x402 = x223 - x225
      x403 = x23 - x46
      x404 = 0.03125d0*x403
      x405 = -x237*x253 + x243
      x406 = x405*x74
      x407 = x403*x49
      x408 = x258 + x401
      x409 = x354*x74
      x410 = x398*x47
      x411 = x396*x50
      PBE_value = x50
      PBE_beta_value = x70
      PBE_alpha_value = x70
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x197 - x93*(-x88 + x90))
      d1E(1) = -x259*x93 + x350*(-x259*x260 + x349 - x91*(x251*x86*(-0.0
     &669375d0*x217 + 0.133875d0*x219 + x248*x82 + x250) + x257 + x87*(0
     &.02390625d0* x217 - 0.0478125d0*x219 + x246))) + x351
      d1E(3) = x369*(x368 - x92*(-x251*x367*(gamma_cc*(0.133875d0*x357 +
     & 0.03346875d0* x359 + x366) + x364*x81) + x355 + x87*(0.0478125d0*
     &x357 + 0.011953125d0*x359 + x363)))
      d1E(6) = -x372*(x251*x371*(x370 - x74*(-0.09275d0*x22 + 0.046375d0
     &*x45 + 0.133875d0*x55 - 0.0669375d0*x68) + 0.2008125d0*x75) + x87*
     &( -0.033125d0*x22 + 0.0165625d0*x45 + 0.0478125d0*x55 - 0.02390625
     &d0*x68))
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = x380
      d1E(1) = x388
      d1E(3) = x393
      d1E(6) = x394
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = x380
      d1E(1) = x388
      d1E(3) = x393
      d1E(6) = x394
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x197 - x93*(-x401 + x90))
      d1E(1) = x350*(-x260*x408 + x349 + x91*(512.0d0*x236*(-x233*(-x227
     &*x230*x402 - x231*x402 + x232) + x252) + x254 - x255 - x407*x86*(-
     &x395 + 1.0d0 )*(-0.0875d0*x218*x407 + x248*x407*(-x397 + 2.8d0) + 
     &x249*x405 - 0.0669375d0*x406) + (x399 - 512.0d0)*(x384*x404 - x405
     &*x76 + 0.02390625d0*x406))) + x351 - x408*x93
      d1E(3) = x369*(x368 - x92*(x355 - x367*x411*(gamma_cc*(0.0875d0*x3
     &62 + x365 + 0.0669375d0*x409) + x364*x410) + x400*(x361 + 0.03125d
     &0*x362 + 0.02390625d0*x409)))
      d1E(6) = -x372*(x371*x411*(3.0d0*x410 - x74*(0.175d0*x22 - 0.0875d
     &0*x45)) + x400* x404)
      end if
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_TPSS_GWS_ERF(rho_c, gamma_cc, tau_c, mu, E,
     & d1E, d2E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, tau_c, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549, x550, x551, x552, x553, x554, x555
     &, x556, x557, x558, x559, x560, x561, x562, x563, x564, x565, x566
     &, x567, x568, x569, x570, x571, x572, x573, x574, x575, x576, x577
     &, x578, x579, x580, x581, x582, x583, x584, x585, x586, x587, x588
     &, x589, x590, x591, x592, x593, x594, x595, x596, x597, x598, x599
     &, x600, x601, x602, x603, x604, x605, x606, x607, x608, x609, x610
     &, x611, x612, x613, x614, x615, x616, x617, x618, x619, x620, x621
     &, x622, x623, x624, x625, x626, x627, x628, x629, x630, x631, x632
     &, x633, x634, x635, x636, x637, x638, x639, x640, x641, x642, x643
     &, x644, x645, x646, x647, x648, x649, x650, x651, x652, x653, x654
     &, x655, x656, x657, x658, x659, x660, x661, x662, x663, x664, x665
     &, x666, x667, x668, x669, x670, x671, x672, x673, x674, x675, x676
     &, x677, x678, x679, x680, x681, x682, x683, x684, x685, x686, x687
     &, x688, x689, x690, x691, x692, x693, x694, x695, x696, x697, x698
     &, x699, x700, x701, x702, x703, x704, x705, x706, x707, x708, x709
     &, x710, x711, x712, x713, x714, x715, x716, x717, x718, x719, x720
     &, x721, x722, x723, x724, x725, x726, x727, x728, x729, x730, x731
     &, x732, x733, x734, x735, x736, x737, x738, x739, x740, x741, x742
     &, x743, x744, x745, x746, x747, x748, x749, x750, x751, x752, x753
     &, x754, x755, x756, x757, x758, x759, x760, x761, x762, x763, x764
     &, x765, x766, x767, x768, x769, x770, x771, x772, x773, x774, x775
     &, x776, x777, x778, x779, x780, x781, x782, x783, x784, x785, x786
     &, x787, x788, x789, x790, x791, x792, x793, x794, x795, x796, x797
     &, x798, x799, x800, x801, x802, x803, x804, x805, x806, x807, x808
     &, x809, x810, x811, x812, x813, x814, x815, x816, x817, x818, x819
     &, x820, x821, x822, x823, x824, x825, x826, x827, x828, x829, x830
     &, x831, x832, x833, x834, x835, x836, x837, x838, x839, x840, x841
     &, x842, x843, x844, x845, x846, x847, x848, x849, x850, x851, x852
     &, x853, x854, x855, x856, x857, x858, x859, x860, x861, x862, x863
     &, x864, x865, x866, x867, x868, x869, x870, x871, x872, x873, x874
     &, x875, x876, x877, x878, x879, x880, x881, x882, x883, x884, x885
     &, x886, x887, x888, x889, x890, x891, x892, x893, x894, x895, x896
     &, x897, x898, x899, x900, x901, x902, x903, x904, x905, x906, x907
     &, x908, x909, x910, x911, x912, x913, x914, x915, x916, x917, x918
     &, x919, x920, x921, x922, x923, x924, x925, x926, x927, x928, x929
     &, x930, x931, x932, x933, x934, x935, x936, x937, x938, x939, x940
     &, x941, x942, x943, x944, x945, x946, x947, x948, x949, x950, x951
     &, x952, x953, x954, x955, x956, x957, x958, x959, x960, x961, x962
     &, x963, x964, x965, x966, x967, x968, x969, x970, x971, x972, x973
     &, x974, x975, x976, x977, x978, x979, x980, x981, x982, x983, x984
     &, x985, x986, x987, x988, x989, x990, x991, x992, x993, x994, x995
     &, x996, x997, x998, x999, x1000, x1001, x1002, x1003, x1004, x1005
     &, x1006, x1007, x1008, x1009, x1010, x1011, x1012, x1013, x1014, x
     &1015, x1016, x1017, x1018, x1019, x1020, x1021, x1022, x1023, x102
     &4, x1025, x1026, x1027, x1028, x1029, x1030, x1031, x1032, x1033, 
     &x1034, x1035, x1036, x1037, x1038, x1039, x1040, x1041, x1042, x10
     &43, x1044, x1045, x1046, x1047, x1048, x1049, x1050, x1051, x1052,
     & x1053, x1054, x1055, x1056, x1057, x1058, x1059, x1060, x1061, x1
     &062, x1063, x1064, x1065, x1066, x1067, x1068, x1069, x1070, x1071
     &, x1072, x1073, x1074, x1075, x1076, x1077, x1078, x1079, x1080, x
     &1081, x1082, x1083, x1084, x1085, x1086, x1087, x1088, x1089, x109
     &0, x1091, x1092, x1093, x1094, x1095, x1096, x1097, x1098, x1099, 
     &x1100, x1101, x1102, x1103, x1104, x1105, x1106, x1107, x1108, x11
     &09, x1110, x1111, x1112, x1113, x1114, x1115, x1116, x1117, x1118,
     & x1119, x1120, x1121, x1122, x1123, x1124, x1125, x1126, x1127, x1
     &128, x1129, x1130, x1131, x1132, x1133, x1134, x1135, x1136, x1137
     &, x1138, x1139, x1140, x1141, x1142, x1143, x1144, x1145, x1146, x
     &1147, x1148, x1149, x1150, x1151, x1152, x1153, x1154, x1155, x115
     &6, x1157, x1158, x1159, x1160, x1161, x1162, x1163, x1164, x1165, 
     &x1166, x1167, x1168, x1169, x1170, x1171, x1172, x1173, x1174
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 1.46459188756152d0
      x1 = 1d0/x0
      x2 = rho_c**(-0.333333333333333d0)
      x3 = x1*x2
      x4 = 0.194159335344114d0*x3 + 1.0d0
      x5 = 2.14502939711103d0
      x6 = 1d0/x5
      x7 = rho_c**0.666666666666667d0
      x8 = 1d0/x7
      x9 = x6*x8
      x10 = 0.564189583547756d0
      x11 = rho_c**(-0.5d0)*x10
      x12 = 0.826307487110758d0
      x13 = rho_c**(-0.166666666666667d0)*x12
      x14 = 1.41872281647967d0*x11 + 7.24010193431683d0*x13 + 3.25955091
     &942229d0*x3 + 0.406913004517529d0*x9
      x15 = 9.86960440108936d0
      x16 = 0.693147180559945d0
      x17 = -x16 + 1.0d0
      x18 = 1d0/x17
      x19 = x15*x18
      x20 = x19/x14
      x21 = log(0.5d0*x20 + 1.0d0)
      x22 = x21*x4
      x23 = 2.0d0*x22
      x24 = gamma_cc*x18
      x25 = gamma_cc**2
      x26 = x17**(-2)
      x27 = x25*x26
      x28 = exp(x23)
      x29 = x28 - 1.0d0
      x30 = x29**(-2)
      x31 = 208.945363813799d0
      x32 = rho_c**(-4.66666666666667d0)
      x33 = x31*x32
      x34 = 8.36096418563526d-6*x33
      x35 = x30*x34
      x36 = x27*x35
      x37 = 14.4549425392770d0
      x38 = rho_c**(-2.33333333333333d0)
      x39 = x37*x38
      x40 = 0.00289153318944038d0*x39
      x41 = 1d0/x29
      x42 = x24*x41
      x43 = x40*x42 + 1.0d0
      x44 = x36 + x43
      x45 = 1d0/x44
      x46 = x40*x43
      x47 = x45*x46
      x48 = x24*x47 + 1.0d0
      x49 = log(x48)
      x50 = 1.0d0*x49
      x51 = -x23 + x50
      x52 = 1d0/x15
      x53 = x17*x52
      x54 = x51*x53
      x55 = 0.235215882559859d0*x3 + 1.0d0
      x56 = 4.12273618607837d0*x11 + 15.10599739383d0*x13 + 7.0945954610
     &7279d0*x3 + 0.819204448708788d0*x9
      x57 = x19/x56 + 1.0d0
      x58 = log(x57)
      x59 = x55*x58
      x60 = 1.0d0*x59
      x61 = 3.34438567425411d-5*x33
      x62 = exp(2.0000000000000004d0*x59)
      x63 = x62 - 1.0d0
      x64 = x63**(-2)
      x65 = x27*x64
      x66 = x61*x65
      x67 = 0.00578306637888076d0*x39
      x68 = 1d0/x63
      x69 = x24*x68
      x70 = x67*x69 + 1.0d0
      x71 = x66 + x70
      x72 = 1d0/x71
      x73 = x67*x70
      x74 = x72*x73
      x75 = x24*x74 + 1.0d0
      x76 = log(x75)
      x77 = 0.5d0*x76
      x78 = -x60 + x77
      x79 = x53*x78
      x80 = rho_c**(-2)
      x81 = tau_c**(-2)
      x82 = x25*x81
      x83 = x80*x82
      x84 = x78*x83
      x85 = 0.00828125d0*x83 + 1.0d0
      x86 = x51*x85
      x87 = -x86
      x88 = 0.02390625d0*x84 + x87
      x89 = -2.8d0*x86
      x90 = 0.0669375d0*x84 + x89
      x91 = rho_c**(-3)
      x92 = x53*x91
      x93 = tau_c**(-3)
      x94 = gamma_cc**3*x93
      x95 = x92*x94
      x96 = -x90*x95 + 512.0d0
      x97 = x88*x96
      x98 = 1024.0d0*x22
      x99 = -512.0d0*x49 + x98
      x100 = mu*x6
      x101 = exp(-1.0053738478084204d0*x100*x2)
      x102 = 0.001953125d0*x101
      x103 = x102*x53
      x104 = x23*x53
      x105 = mu**2
      x106 = 0.508616435555896d0*x105*x9 + 1.0d0
      x107 = x106**(-4)
      x108 = mu**4
      x109 = exp(-0.6836107611867116d0*x3)
      x110 = 4.60115111447049d0
      x111 = 1d0/x110
      x112 = rho_c**(-1.33333333333333d0)
      x113 = rho_c**1.0d0
      x114 = 1d0/x113
      x115 = 3.14159265358979d0
      x116 = 1d0/x115
      x117 = 0.009578475d0*x116
      x118 = 0.00126674656487366d0*x111*x112 - x114*x117 + 0.01881719229
     &90732d0*x3 + 0.0676322201645715d0*x9 + 1.0d0
      x119 = x109*x118
      x120 = x119 - 1.0d0
      x121 = 0.13157433081915d0*x120
      x122 = x114*x116
      x123 = x121*x122
      x124 = x112*x17
      x125 = 0.0220208337265180d0
      x126 = x125*x22
      x127 = 3.10428814221102d0*x124*x126
      x128 = 0.148394183600699d0
      x129 = 2.28942848510666d0
      x130 = x110*x129
      x131 = 1.63540853354893d0*x130
      x132 = exp(-0.49698248213959023d0*x3)
      x133 = x132*(-0.352521395009435d0*x3 + 0.558025705063192d0*x9)
      x134 = x133*x5
      x135 = 10.9027235569928d0*x134
      x136 = 0.494402081358784d0*x3 + 0.0524148278841779d0*x9 + 1.0d0
      x137 = 1d0/x136
      x138 = 0.0259335011650457d0*x3
      x139 = -x138 + 1.0d0
      x140 = x137*x139
      x141 = 1.63540853354893d0*x130
      x142 = x140*x141
      x143 = x128*(x131 - x135 - x142)
      x144 = 0.00139418473233101d0*rho_c**(-1.0d0)*x143
      x145 = x108*(-x123 - x127 + x144)
      x146 = x105*x3
      x147 = 5.57236303607474d0*mu*x13 + 1.0d0
      x148 = 3.13317926779378d0*x146 + x147
      x149 = 1d0/x148
      x150 = mu**3
      x151 = 3.39260255780131d0*x11*x150 + 6.76834298980504d0*x146 + x14
     &7
      x152 = x149*x151
      x153 = 2.0d0*log(x152)
      x154 = x52*(x16 - 1.0d0)
      x155 = x153*x154
      x156 = rho_c**(-1.66666666666667d0)
      x157 = x128*x156
      x158 = rho_c**(-2.0d0)
      x159 = 1.0525946465532d0*x158
      x160 = x17*x22
      x161 = 0.0102659822546843d0*x160
      x162 = mu**6*(0.0167302167879722d0*x120*x157 + x159*x161)
      x163 = 1.41421356237310d0
      x164 = 0.179587122125167d0
      x165 = x119*x164
      x166 = 0.175432441092201d0*x114
      x167 = 0.0837224526465878d0
      x168 = -4.49737346725955d0*x3 + 0.825481812223657d0*x9
      x169 = exp(-0.28165369188898165d0*x3)
      x170 = x115*x169
      x171 = 12.0d0*x170
      x172 = x168*x171
      x173 = x167*(x113*x172 + x142*x7)
      x174 = 0.00111534778586481d0*x156
      x175 = x150*x163*(x165*x166 + x173*x174)
      x176 = mu**5
      x177 = x119*x167
      x178 = x163*x177
      x179 = 0.0223069557172962d0*x156
      x180 = x176*x178*x179
      x181 = 0.00478594012208448d0*x160
      x182 = rho_c**(-2.66666666666667d0)
      x183 = 0.133841734303777d0*x182
      x184 = mu**8*x181*x183
      x185 = x162 + x175 + x180 + x184
      x186 = -x145 - x155 + x185
      x187 = x104 - x107*x186
      x188 = x187*x19
      x189 = exp(x188)
      x190 = x189 - 1.0d0
      x191 = x190**(-2)
      x192 = x17**(-7.56d0)
      x193 = 70524387.5934282d0*x192
      x194 = x145 + x155 - x162 - x175 - x180 - x184
      x195 = x104 + x107*x194
      x196 = 1d0/x4
      x197 = 1d0/x21
      x198 = x196*x197
      x199 = x195*x198
      x200 = x199**5.56d0
      x201 = x200*x32
      x202 = x193*x201
      x203 = 1.77226878060434d-7*x25
      x204 = x202*x203
      x205 = 0.000420983227766184d0*x38
      x206 = x199**2.78d0
      x207 = x17**(-3.78d0)
      x208 = 8397.87994635719d0*x207
      x209 = x206*x208
      x210 = x205*x209
      x211 = 1d0/x190
      x212 = gamma_cc*x211
      x213 = x210*x212 + 1.0d0
      x214 = x191*x204 + x213
      x215 = 1d0/x214
      x216 = x210*x213
      x217 = x215*x216
      x218 = gamma_cc*x217 + 1.0d0
      x219 = x187 - x53*log(x218)
      x220 = 1d0/x37
      x221 = x220*x58
      x222 = x124*x221
      x223 = 1.0d0*x55
      x224 = x156*x6
      x225 = rho_c**(-1.5d0)*x10
      x226 = x1*x112
      x227 = rho_c**(-1.16666666666667d0)*x12
      x228 = 0.546136299139192d0*x224 + 2.06136809303918d0*x225 + 2.3648
     &6515369093d0* x226 + 2.517666232305d0*x227
      x229 = 1d0/x57
      x230 = x229/x56**2
      x231 = x228*x230
      x232 = rho_c**(-3.33333333333333d0)
      x233 = 0.0134938215507218d0*x232
      x234 = 0.00578306637888076d0*x38
      x235 = 0.470431765119717d0*x3 + 2.0d0
      x236 = x19*x235
      x237 = -0.156810588373239d0*x226*x58 + x231*x236
      x238 = x62*x68
      x239 = x237*x238
      x240 = x31*(x233 + x234*x239)
      x241 = x234*x69
      x242 = x240*x241
      x243 = x233*x37
      x244 = x243*x70
      x245 = rho_c**(-5.66666666666667d0)
      x246 = x245*x31
      x247 = x246*x69
      x248 = 6.68877134850821d-5*x33
      x249 = x24*x248*x62
      x250 = x249*x64
      x251 = x239*x67 + x243
      x252 = x237*x250 + 0.000156071331465192d0*x247 + x251
      x253 = x69*x74
      x254 = x252*x253
      x255 = -x244 + x254
      x256 = -x242 + x255
      x257 = x72/x75
      x258 = gamma_cc*x257
      x259 = x256*x258
      x260 = 0.5d0*x52
      x261 = 0.0784052941866195d0*x222 - x223*x231 + x259*x260
      x262 = x261*x83
      x263 = x82*x91
      x264 = x263*x79
      x265 = 0.00674691077536089d0*x232
      x266 = 0.00144576659472019d0*x38
      x267 = 0.258879113792152d0*x21
      x268 = x226*x267
      x269 = 0.27127533634502d0*x224 + 0.709361408239834d0*x225 + 1.0865
     &1697314076d0* x226 + 1.20668365571947d0*x227
      x270 = x20 + 2.0d0
      x271 = 1d0/x270
      x272 = x271/x14**2
      x273 = x269*x272
      x274 = 0.388318670688228d0*x3 + 2.0d0
      x275 = x19*x274
      x276 = 2.0d0*x273*x275
      x277 = -x268 + x276
      x278 = x28*x41
      x279 = x277*x278
      x280 = x265 + x266*x279
      x281 = x280*x31*x42
      x282 = 0.00289153318944038d0*x38
      x283 = x281*x282
      x284 = x265*x37
      x285 = x284*x43
      x286 = 0.00144576659472019d0*x39
      x287 = x279*x286
      x288 = x24*x28
      x289 = x277*x288
      x290 = x246*x42
      x291 = x284 + 3.90178328662979d-5*x290
      x292 = x287 + x289*x35 + x291
      x293 = x42*x47
      x294 = x292*x293
      x295 = -x285 + x294
      x296 = -x283 + x295
      x297 = x45/x48
      x298 = x297*x52
      x299 = gamma_cc*x298
      x300 = x296*x299
      x301 = 1.0d0*x300
      x302 = 2.0d0*x4
      x303 = x273*x302
      x304 = 0.129439556896076d0*x112
      x305 = x17*x21
      x306 = x220*x305
      x307 = x304*x306
      x308 = -x303 + x307
      x309 = x301 + x308
      x310 = x263*x54
      x311 = -x309*x85 + 0.0165625d0*x310
      x312 = 0.02390625d0*x262 - 0.0478125d0*x264 + x311
      x313 = 1d0/rho_c
      x314 = x313*x53
      x315 = x314*x90
      x316 = 0.0669375d0*x262
      x317 = 0.133875d0*x264
      x318 = 0.0231875d0*x83 + 2.8d0
      x319 = x309*x318
      x320 = 0.046375d0*x310
      x321 = x319 - x320
      x322 = 3.0d0*x315 - x316 + x317 + x321
      x323 = x88*x95
      x324 = -x294
      x325 = x283 + x285
      x326 = x324 + x325
      x327 = x299*x326
      x328 = x273*x4
      x329 = 1024.0d0*x328
      x330 = x112*x306
      x331 = 66.2730531307909d0*x330
      x332 = -x329 + x331
      x333 = -512.0d0*x327 + x332
      x334 = x101*(x312*x96 + x322*x323 + x333)
      x335 = 0.0472353356922751d0
      x336 = 0.33512461593614d0*mu*x335
      x337 = x101*x336
      x338 = 512.0d0*x49 - x98
      x339 = x338 + x97
      x340 = x124*x339
      x341 = x138 - 1.0d0
      x342 = x137*x341
      x343 = -x131 + x135
      x344 = 0.00232364122055169d0*x158
      x345 = x128*x344
      x346 = x115*x129*x8
      x347 = 0.0141372897033723d0*x137*x346
      x348 = 0.372017136708795d0*x224
      x349 = 0.117507131669812d0*x226
      x350 = x132*x5
      x351 = 10.9027235569928d0*x350*x7
      x352 = rho_c**(-0.333333333333333d0)
      x353 = x130*x352
      x354 = 1.09027235569928d0*x353
      x355 = x136**(-2)
      x356 = 0.034943218589452d0*x224 + 0.164800693786261d0*x226
      x357 = x355*x356
      x358 = x141*x7
      x359 = x357*x358
      x360 = 7.26848237132856d0*x134*x352
      x361 = x0*x8
      x362 = 1.80615420514536d0*x133*x361
      x363 = 1.09027235569928d0*x353
      x364 = x360 + x362 - x363
      x365 = 0.00139418473233101d0*x157
      x366 = x116*x158
      x367 = 0.0150354743280612d0*x305
      x368 = 0.200908840802769d0*x182
      x369 = rho_c**(-2.33333333333333d0)
      x370 = x111*x369
      x371 = 0.000844497709915773d0*x370
      x372 = 0.0047892375d0*x366
      x373 = 0.0225440733881905d0*x224
      x374 = 0.0031361987165122d0*x226
      x375 = -x371 + x372 - x373 - x374
      x376 = x109*(0.113935126864452d0*x118*x226 + x375)
      x377 = 0.263148661638301d0*x122
      x378 = x17*x369
      x379 = 0.217336917462899d0
      x380 = x328*x379
      x381 = 3.10428814221102d0*x112
      x382 = x121*x366 + 4.13905085628136d0*x126*x378 + x367*x368 - x376
     &*x377 - x380* x381
      x383 = 0.00168899541983155d0*x370
      x384 = x117*x158
      x385 = 0.045088146776381d0*x224
      x386 = 0.00627239743302441d0*x226
      x387 = x383 - x384 + x385 + x386
      x388 = x109*x164
      x389 = x166*x388
      x390 = -0.550321208149104d0*x224 + 1.49912448908652d0*x226
      x391 = x113*x171
      x392 = x168*x169
      x393 = 2.14502939711103d0
      x394 = rho_c**(-0.333333333333333d0)*x393
      x395 = x140*x354
      x396 = x139*x359
      x397 = x347 + x395 + x396
      x398 = x167*(x172 + x390*x391 + 1.12661476755593d0*x392*x394 + x39
     &7)
      x399 = x174*x398
      x400 = 0.00185891297644135d0*x173*x182
      x401 = 0.122619224952946d0
      x402 = x369*x401
      x403 = 0.0399758348639607d0*x119*x402
      x404 = 0.175432441092201d0*x158*x165
      x405 = x399 - x400 + x403 - x404
      x406 = x105*x163
      x407 = 0.928727172679123d0*x227
      x408 = mu*x226
      x409 = 2.25611432993501d0*x408
      x410 = 1.69630127890066d0*x105*x225
      x411 = x407 + 1.04439308926459d0*x408
      x412 = x152*x411 - x407 - x409 - x410
      x413 = 2.0d0/x151
      x414 = x412*x413
      x415 = x414*x53
      x416 = x108*x163
      x417 = x167*x416
      x418 = x179*x417
      x419 = x109*x387
      x420 = x128*x182
      x421 = 0.00700944907716014d0*x305
      x422 = rho_c**(-3.33333333333333d0)
      x423 = 0.0681236923205142d0*x422
      x424 = rho_c**(-3.0d0)
      x425 = 0.0334604335759443d0*x157
      x426 = 0.101321183642338d0
      x427 = x159*x426
      x428 = mu**7
      x429 = 0.00326776364305339d0*x305*x428
      x430 = rho_c**(-4.0d0)
      x431 = 0.00866220739124163d0*x430
      x432 = rho_c**(-3.66666666666667d0)
      x433 = x181*x428
      x434 = x108*x178
      x435 = 0.0571643564037363d0
      x436 = x119*x416
      x437 = x435*x436
      x438 = x183*x428
      x439 = 0.0472353356922751d0
      x440 = x328*x439
      x441 = x176*(0.0278836946466203d0*x120*x420 + 2.10518929310641d0*x
     &161*x424 - x328*x427 - x376*x425 + x421*x423) + 0.037178259528827d
     &0*x182* x434 - 0.00508309165921971d0*x424*x437 + x429*x431 + 0.356
     &911291476739d0*x432*x433 - x438*x440
      x442 = -x415 + x418*x419 + x441
      x443 = x150*(x345*(-x141*x342 + x343) - x365*(-x341*x359 - x342*x3
     &54 + x347 - x351*(x348 - x349) + x364) + x382) - x406*(-x387*x389 
     &+ x405) + x442
      x444 = mu*x107
      x445 = 512.0d0*x444
      x446 = x108*(x123 + x127 - x144) + x153*x53 + x185
      x447 = x106**(-5)
      x448 = x224*x447
      x449 = x105*x448
      x450 = x446*x449
      x451 = 0.000982294198121095d0*x232
      x452 = x206*x451
      x453 = x213*x452
      x454 = 1d0/x195
      x455 = 0.359841968171091d0*x330
      x456 = 5.56d0*x328
      x457 = x194*x449
      x458 = 3.77054317558771d0*x457
      x459 = x195*x196
      x460 = x226*x459
      x461 = 0.179920984085546d0*x460
      x462 = x19*x195
      x463 = x197*x273
      x464 = x462*x463
      x465 = 2.78d0*x464
      x466 = -x348 + x349
      x467 = x351*x466
      x468 = -x347 - x360 - x362 + x363 - x395 - x396 - x467
      x469 = -x383 + x384 - x385 - x386
      x470 = x389*x469
      x471 = x154*x414
      x472 = x109*x469
      x473 = x150*(-x143*x344 + x365*x468 + x382) + x406*(-x399 + x400 -
     & x403 + x404 - x470) - x418*x472 + x441 + x471
      x474 = x444*x473
      x475 = 2.78d0*x474
      x476 = x455 - x456 - x458 - x461 + x465 - x475
      x477 = x205*x476
      x478 = x454*x477
      x479 = x206*x213
      x480 = gamma_cc*x205
      x481 = exp(x462)
      x482 = x481 - 1.0d0
      x483 = 1d0/x482
      x484 = x208*x451
      x485 = 1.35631049481572d0*x457
      x486 = x303 - x307
      x487 = x474 + x485 + x486
      x488 = 82883.752878387d0*x17**(-4.78d0)
      x489 = x205*x488
      x490 = x205*x208
      x491 = x200*(-x454*x490*(-x455 + x456 + x458 + x461 - x465 + x475)
     & + x481*x483* x487*x489 + x484)
      x492 = x483*x491
      x493 = 8.27058764282027d-7*x245
      x494 = x200*x212
      x495 = x193*x494
      x496 = -11.12d0*x328 + 0.719683936342183d0*x330 - 7.54108635117542
     &d0*x457 - 0.359841968171091d0*x460 + 5.56d0*x464 - 5.56d0*x474
      x497 = x454*x496
      x498 = x202*x212
      x499 = 1.77226878060434d-7*x498
      x500 = gamma_cc*x201
      x501 = 3.54453756120869d-7*x191*x500
      x502 = x142 + x343
      x503 = x364 + x397 + x467
      x504 = x150*(x345*x502 - x365*x503 + x382) - x406*(x405 + x470) + 
     &x442
      x505 = x444*x504
      x506 = 1.35631049481572d0*x186*x449
      x507 = x486 + x505 - x506
      x508 = x189*x507
      x509 = 696047806.176231d0*x17**(-8.56d0)
      x510 = x508*x509
      x511 = x454*x476
      x512 = x206*x211
      x513 = x489*x508
      x514 = x208*x452 + x210*x511 + x512*x513
      x515 = x493*x495 + x497*x499 + x501*x510 + x514
      x516 = x215*x515
      x517 = -x211*x479*x480*x516 + x453 + x478*x479 + x480*x492
      x518 = 512.0d0*x517
      x519 = 850.883136251163d0
      x520 = x17**(-2.78d0)
      x521 = x107*x446
      x522 = x19*(x104 - x521)
      x523 = exp(x522)
      x524 = x523 - 1.0d0
      x525 = x524**(-2)
      x526 = x187*x198
      x527 = x526**5.56d0
      x528 = x193*x527
      x529 = x32*x528
      x530 = x526**2.78d0
      x531 = x208*x530
      x532 = 1d0/x524
      x533 = x480*x532
      x534 = x531*x533 + 1.0d0
      x535 = x203*x525*x529 + x534
      x536 = 1d0/x535
      x537 = x531*x534
      x538 = x480*x536*x537
      x539 = x538 + 1.0d0
      x540 = 1d0/x539
      x541 = x215*x540
      x542 = gamma_cc*x519*x520*x541
      x543 = x332 - x443*x445 + 694.43097334565d0*x450 - x518*x542
      x544 = 0.001953125d0*rho_c
      x545 = -x104 + x521 + x53*log(x539)
      x546 = x34*x42
      x547 = 1.67219283712705d-5*x33
      x548 = x42*x547
      x549 = x40 + x548
      x550 = x45*x549
      x551 = x46*x550
      x552 = x42*x551
      x553 = x46 + x546 - x552
      x554 = x297*x553
      x555 = 512.0d0*x554
      x556 = x80*x81
      x557 = gamma_cc*x556
      x558 = x17*x78
      x559 = x557*x558
      x560 = x61*x69
      x561 = x248*x69
      x562 = x561 + x67
      x563 = x253*x562
      x564 = x560 - x563 + x73
      x565 = x257*x564
      x566 = 0.011953125d0*x83
      x567 = 1.0d0*x554
      x568 = -x567*x85
      x569 = x17*x51
      x570 = x557*x569
      x571 = x568 - 0.0165625d0*x570
      x572 = 0.0478125d0*x559 + x565*x566 + x571
      x573 = x17*x90
      x574 = 0.03346875d0*x83
      x575 = -x318*x567
      x576 = -0.046375d0*x570 + x575
      x577 = gamma_cc*(0.133875d0*x559 + x565*x574 + x576)
      x578 = 3.0d0*x573 + x577
      x579 = x25*x93
      x580 = x578*x579
      x581 = x88*x92
      x582 = x555 + x572*x96 - x580*x581
      x583 = x102*x582
      x584 = gamma_cc*x532
      x585 = x529*x584
      x586 = x205*x537
      x587 = 3.54453756120869d-7*x202
      x588 = x212*x587
      x589 = x211*x538
      x590 = x536*x540
      x591 = x590*(1.77226878060434d-7*x585 + x586 - x589*(x210 + x588))
     &
      x592 = x17*x591
      x593 = rho_c*x52
      x594 = -0.033125d0*x22 + 0.0165625d0*x49 + 0.0478125d0*x59 - 0.023
     &90625d0*x76
      x595 = -8.4d0*x86
      x596 = -0.09275d0*x22 + 0.046375d0*x49 + 0.133875d0*x59 - 0.066937
     &5d0*x76
      x597 = x596*x83
      x598 = x595 - x597 + 0.2008125d0*x84
      x599 = 1d0/tau_c
      x600 = x314*x599
      x601 = x598*x600
      x602 = gamma_cc*x88
      x603 = x594*x96 + x601*x602
      x604 = x103*x313
      x605 = x579*x604
      x606 = 0.682784063255296d0
      x607 = 0.0784052941866195d0*x231
      x608 = x182*x6
      x609 = rho_c**(-2.5d0)*x10
      x610 = x1*x369
      x611 = rho_c**(-2.16666666666667d0)*x12
      x612 = x230*(0.910227165231986d0*x608 + 3.09205213955878d0*x609 + 
     &3.15315353825457d0*x610 + 2.9372772710225d0*x611)
      x613 = x228**2/(x56**4*x57**2)
      x614 = x228*x229*(1.09227259827838d0*x224 + 4.12273618607837d0*x22
     &5 + 4.72973030738186d0*x226 + 5.03533246461d0*x227)/x56**3
      x615 = x71**(-2)
      x616 = x615/x75**2
      x617 = rho_c**(-4.33333333333333d0)
      x618 = 0.0449794051690726d0*x617
      x619 = x37*x618
      x620 = 0.0269876431014436d0*x232
      x621 = x240*x69
      x622 = x232*x37
      x623 = 0.0269876431014436d0*x622
      x624 = x70*x72
      x625 = x624*x69
      x626 = 0.0115661327577615d0*x38
      x627 = x252*x72
      x628 = x240*x65
      x629 = exp(4.0000000000000009d0*x59)
      x630 = x237**2
      x631 = x630*x64
      x632 = x629*x631
      x633 = x234*x238
      x634 = 6.73880859569814d0*x112*x18
      x635 = 97.4090910340024d0*x26
      x636 = -0.313621176746478d0*x231*x634 - x235*x613*x635 - x236*x612
     & + x236*x614 + 0.209080784497652d0*x58*x610
      x637 = 0.0115661327577615d0*x39
      x638 = 0.000133775426970164d0*x33
      x639 = x237*x24*x62*x64
      x640 = 0.000312142662930383d0*x247 + x638*x639
      x641 = x615*x73
      x642 = x252*x641*x65
      x643 = rho_c**(-6.66666666666667d0)
      x644 = x31*x643
      x645 = x238*x67
      x646 = x24*x33
      x647 = x112*x606*x607 + x18*x25*x256*x260*x616*(x242 + x244 - x254
     &) + x19*x223* x613 - 0.104540392248826d0*x221*x378 + x223*x612 - x
     &223*x614 + x226*x607 + x258*x260*(x241*x31*(x239*x620 + x618 + x62
     &6*x632 - x630*x633 - x633*x636) - x252*x623*x625 + x253*(-x239*x62
     &3 - 0.000624285325860767d0*x246*x639 + x249*x631 + x250*x636 - x61
     &9 - 0.000200663140455246d0*x629*x630*x646/x63**3 + x630*x645 - x63
     &2* x637 + x636*x645 - 0.000884404211636086d0*x644*x69) + x619*x70 
     &+ x620*x621 - x626*x627*x628 + x642*(x239*x637 + x623 + x640))
      x648 = x647*x83
      x649 = x261*x263
      x650 = x82/rho_c**4
      x651 = x650*x79
      x652 = 0.0224897025845363d0*x617
      x653 = x277**2
      x654 = x30*x653
      x655 = exp(4.0d0*x22)
      x656 = x266*x655
      x657 = 0.000722883297360095d0*x278
      x658 = x38*x657
      x659 = 0.690344303445739d0*x21*x610
      x660 = x273*x634
      x661 = 1.03551645516861d0*x660
      x662 = x272*(0.452125560575033d0*x608 + 1.06404211235975d0*x609 + 
     &1.44868929752102d0*x610 + 1.40779759833938d0*x611)
      x663 = 4.0d0*x275
      x664 = x662*x663
      x665 = x269**2/(x14**4*x270**2)
      x666 = x635*x665
      x667 = 4.0d0*x274*x666
      x668 = x269*x271*(0.542550672690039d0*x224 + 1.41872281647967d0*x2
     &25 + 2.17303394628153d0*x226 + 2.41336731143894d0*x227)/x14**3
      x669 = x663*x668
      x670 = x659 - x661 - x664 - x667 + x669
      x671 = x282*x31
      x672 = x42*x671
      x673 = x37*x652
      x674 = 0.000221101052909021d0*x42*x644
      x675 = x279*x284
      x676 = x286*x654*x655
      x677 = x39*x657
      x678 = x653*x677
      x679 = x289*x30
      x680 = 7.80356657325958d-5*x246*x679
      x681 = 1.25414462784529d-5*x646*x653*x655/x29**3
      x682 = 4.18048209281763d-6*x288*x33
      x683 = x654*x682
      x684 = x670*x677
      x685 = x30*x670*x682
      x686 = 0.0134938215507218d0*x622
      x687 = x292*x45
      x688 = x42*x43
      x689 = 0.00578306637888076d0*x38
      x690 = x27*x30
      x691 = x280*x690
      x692 = x31*x689*x691
      x693 = x547*x679
      x694 = 7.80356657325958d-5*x290
      x695 = x686 + x694
      x696 = x44**(-2)
      x697 = x46*x696
      x698 = x690*x697
      x699 = x292*x698
      x700 = 0.0134938215507218d0*x232*x281 + x43*x673
      x701 = x696/x48**2
      x702 = x18*x326
      x703 = x25*x52*x701*x702
      x704 = x302*x662
      x705 = x306*x369
      x706 = 0.172586075861435d0*x705
      x707 = x302*x668
      x708 = x273*x606
      x709 = x304*x708
      x710 = x226*x273
      x711 = 0.129439556896076d0*x710
      x712 = x19*x665
      x713 = x302*x712
      x714 = x704 - x706 - x707 + x709 + x711 + x713
      x715 = x296*x703 + x299*(x293*(-x673 - x674 - x675 - x676 + x678 -
     & x680 - x681 + x683 + x684 + x685) + x672*(x265*x279 + x652 - x653
     &*x658 + x654 *x656 - x658*x670) - x686*x687*x688 - x687*x692 + x69
     &9*(x279*x40 + x693 + x695) + x700) + x714
      x716 = -x715*x85
      x717 = x263*x309
      x718 = x54*x650
      x719 = x716 + 0.033125d0*x717 - 0.0496875d0*x718
      x720 = x312*x91
      x721 = x322*x94
      x722 = -x319 + x320
      x723 = 6.0d0*x313
      x724 = x53*x80
      x725 = 12.0d0*x724
      x726 = x318*x715
      x727 = -0.09275d0*x717 + 0.139125d0*x718 + x726
      x728 = x268 - x276
      x729 = x278*x728
      x730 = x728**2
      x731 = x288*x728
      x732 = -x286*x729 + x291 - x35*x731
      x733 = x45*x688
      x734 = 512.0d0*x299
      x735 = -x293*x732 + x325
      x736 = x4*x662
      x737 = x4*x668
      x738 = x112*x708
      x739 = x4*x712
      x740 = -88.3640708410546d0*x705 + 66.2730531307909d0*x710 + 1024.0
     &d0*x736 - 1024.0d0*x737 + 66.2730531307909d0*x738 + 1024.0d0*x739
      x741 = -512.0d0*x703*x735 + x734*(-x293*(x673 + x674 + x675 + x676
     & - x678 + x680 + x681 - x683 - x684 - x685) - x45*x692*x732 + x672
     &*(-x265* x729 + x30*x656*x730 + x652 - x658*x730 + x658*(-x659 + x
     &661 + x664 + x667 - x669)) - x686*x732*x733 + x698*x732*(-x30*x547
     &*x731 - x40*x729 + x695) + x700) + x740
      x742 = 0.67024923187228d0*x100*x112
      x743 = x101*x339
      x744 = mu*x335
      x745 = 0.446832821248187d0*x378*x744
      x746 = 0.112308508206345d0*mu**2*x125*x17*x182
      x747 = 0.0101661833184394d0*x416*x424*x435
      x748 = x419*x747
      x749 = 0.074356519057654d0*x182*x417
      x750 = x419*x749
      x751 = x111*x422
      x752 = x116*x424
      x753 = 0.0751469112939684d0*x608 + 0.00836319657736588d0*x610 + 0.
     &00394098931294027d0*x751 - 0.01915695d0*x752
      x754 = x109*x418*x753
      x755 = rho_c**(-4.33333333333333d0)
      x756 = 4.52089344419912d-5*x436*x755
      x757 = 0.023721094409692d0*x430*x437
      x758 = 0.0991420254102054d0*x432*x434
      x759 = 0.0577480492749442d0*rho_c**(-5.0d0)*x429
      x760 = 1.30867473541471d0*rho_c**(-4.66666666666667d0)*x433
      x761 = x273*x428*x431
      x762 = 0.0322515344331995d0*x761
      x763 = 0.0322515344331995d0*x761
      x764 = 0.713822582953479d0*x428*x432*x440
      x765 = x438*x439
      x766 = x736*x765
      x767 = x18*x4*x665
      x768 = 0.466194077035412d0*x438*x767
      x769 = x737*x765
      x770 = 2.0d0*x407 + 2.0d0*x409 + 2.0d0*x410
      x771 = mu*x412*x770/x151**2
      x772 = x53*x771
      x773 = mu*x411
      x774 = x149*x773
      x775 = x415*x774
      x776 = 1.08351503479231d0*x611
      x777 = mu*x610
      x778 = x413*(2.54445191835098d0*x105*x609 - x152*(x776 + 1.3925241
     &1901946d0* x777) - x770*x774 + x776 + 3.00815243991335d0*x777 + x1
     &51*x773*( 1.85745434535825d0*x227 + 2.08878617852919d0*x408)/x148*
     &*2)
      x779 = x53*x778
      x780 = 0.0799516697279215d0*x402*x472
      x781 = 0.350864882184401d0*x158*x388*x469
      x782 = x389*x753
      x783 = rho_c**(-3.66666666666667d0)
      x784 = 0.00910930363347549d0*x177*x783
      x785 = 0.133252782879869d0*x119*x401*x422
      x786 = 0.350864882184401d0*x165*x424
      x787 = 0.00495710127051027d0*x173*x432
      x788 = 0.0037178259528827d0*x182*x398
      x789 = rho_c**(-1.33333333333333d0)
      x790 = x130*x789
      x791 = 0.363424118566428d0*x140*x790
      x792 = 0.0282745794067445d0*x346*x357
      x793 = x139*x358
      x794 = x355*x793*(0.0582386976490866d0*x608 + 0.219734258381682d0*
     &x610)
      x795 = 2.18054471139857d0*x139*x353*x357
      x796 = x356*x793*(0.0698864371789039d0*x224 + 0.329601387572523d0*
     &x226)/x136**3
      x797 = x791 - x792 + x794 - x795 - x796
      x798 = x167*x174*(-0.751076511703951d0*x112*x392*x393 - 0.15491242
     &6780983d0* x156*x392 - 2.25322953511185d0*x169*x390*x394 - 24.0d0*
     &x170*x390 - x391*(0.917202013581841d0*x608 - 1.99883265211535d0*x6
     &10) + x797)
      x799 = x406*(x780 - x781 + x782 + x784 - x785 + x786 + x787 - x788
     & - x798)
      x800 = 0.455740507457808d0*x226
      x801 = -x117*x424 + 0.0259624262672375d0*x118*x608 - 0.15191350248
     &5936d0*x118* x610 + 0.0375734556469842d0*x608 + 0.0041815982886829
     &4d0*x610 + 0.00197049465647014d0*x751
      x802 = x109*(-x800*(x371 - x372 + x373 + x374) + x801)
      x803 = x273*x423
      x804 = -0.074356519057654d0*x120*x128*x432 + x159*x767 - 6.3155678
     &7931922d0* x161*x430 + x220*x803 + 4.21037858621281d0*x328*x424*x4
     &26 + 0.111534778586481d0*x376*x420 - 0.363326359042743d0*x421*x755
     & + x427*x736 - x427*x737 + 0.0691804894611514d0*x803
      x805 = x176*(-x425*x802 + x804)
      x806 = 0.00464728244110338d0*x420
      x807 = 0.363424118566428d0*x790
      x808 = 0.299209d0*x133*x158
      x809 = 3.61230841029072d0*x132*x361*x466
      x810 = 2.42282745710952d0*x134*x789
      x811 = 14.5369647426571d0*x350*x352*x466
      x812 = x351*(0.620028561181324d0*x608 - 0.156676175559749d0*x610)
      x813 = 0.00619637658813783d0*x424
      x814 = x379*x381
      x815 = -0.263148661638301d0*x120*x752 - 9.65778533132318d0*x125*x1
     &60*x422 + 0.148394183600699d0*x273*x368 + 0.200908840802769d0*x273
     &*x420 + 0.526297323276602d0*x366*x376 - 0.535756908807384d0*x367*x
     &432 - 0.267878454403692d0*x367*x783 + 8.27810171256273d0*x369*x380
     & + 2.14502939711103d0*x381*x767 + x736*x814 - x737*x814
      x816 = x150*(-x128*x502*x813 - x365*(-x791 + x792 - x794 + x795 + 
     &x796 + x807 + x808 + x809 - x810 + x811 + x812) - x377*x802 + x503
     &*x806 + x815)
      x817 = x108*x751/x106**6
      x818 = x105*x447*x608
      x819 = x150*x448
      x820 = 0.00327431399373698d0*x208*x617
      x821 = x530*x534
      x822 = 0.00196458839624219d0*x232
      x823 = x531*x822
      x824 = 1d0/x187
      x825 = x476*x824
      x826 = x187**(-2)
      x827 = x476**2
      x828 = x826*x827
      x829 = 0.156226553915631d0*rho_c**(-3.66666666666667d0)*x196*x207
      x830 = x825*x829
      x831 = x477*x824
      x832 = x534*x831
      x833 = x463*x488
      x834 = x308 - x505 + x506
      x835 = x477*x826*x834
      x836 = x209*x822
      x837 = x208*x478 + x211*x513 + x484
      x838 = x530*x837
      x839 = x212*x838
      x840 = 0.000841966455532367d0*x38
      x841 = x209*x840
      x842 = x196*x226
      x843 = 0.359841968171091d0*x842
      x844 = x19*x463
      x845 = 5.56d0*x844
      x846 = x109*(x375*x800 + x801)
      x847 = -x754 - x756 + x757 - x758 - x759 - x760 + x762 + x763 + x7
     &64 + x766 + x768 - x769
      x848 = x444*(x150*(x143*x813 + x365*(x797 - x807 - x808 - x809 + x
     &810 - x811 - x812) - x377*x846 - x468*x806 + x815) + x154*x771 + x
     &154*x778 + x176*(-x425*x846 + x804) + x406*(-x780 + x781 - x782 - 
     &x784 + x785 - x786 - x787 + x788 + x798) - x471*x774 - x472*x747 +
     & x472* x749 + x847)
      x849 = x459*x610
      x850 = x195*x608/x4**2
      x851 = x194*x818
      x852 = x194*x817
      x853 = x473*x819
      x854 = 2.78d0*x197
      x855 = x462*x662
      x856 = x195*x666
      x857 = x21**(-2)
      x858 = 5.56d0*x856
      x859 = x462*x668
      x860 = x199*x660
      x861 = -0.479789290894789d0*x705 + 0.359841968171091d0*x710 + 5.56
     &d0*x736 - 5.56d0*x737 + 0.359841968171091d0*x738 + 5.56d0*x739 - 2
     &.78d0* x848 + 0.239894645447394d0*x849 - 0.023288892456339d0*x850 
     &+ 6.28423862597952d0*x851 - 6.39253410025677d0*x852 - 7.5410863511
     &7542d0*x853 - x854*x855 - x854*x856 + x854*x859 - x857*x858 + 0.35
     &9841968171091d0*x860
      x862 = x824*(-x487*x843 + x487*x845 + x861)
      x863 = x528*x584
      x864 = x523*x532
      x865 = x489*x864
      x866 = gamma_cc*x32*x509*x523*x525*x527*x834
      x867 = x496*x585*x824
      x868 = x484*x530 + x493*x863 - x530*x834*x865 + x531*x831 - 3.5445
     &3756120869d-7 *x866 + 1.77226878060434d-7*x867
      x869 = x536*x868
      x870 = x534*x869
      x871 = x825*x840
      x872 = x211*x25
      x873 = 1.65411752856405d-6*x245
      x874 = x834*x864
      x875 = x488*x874
      x876 = x488*x822
      x877 = 818029.852187331d0*x17**(-5.78d0)
      x878 = x834**2*x877
      x879 = x444*(x748 - x750 - x772 + x775 - x779 - x799 + x805 + x816
     & + x847)
      x880 = 2.29947269793409d0*x186*x817
      x881 = 2.26051749135954d0*x186*x818
      x882 = 2.71262098963145d0*x504*x819
      x883 = x508*x512
      x884 = x191*x510
      x885 = x507**2
      x886 = x877*x885
      x887 = x189*x512
      x888 = exp(2.0d0*x188)
      x889 = 6869716491.20552d0*x17**(-9.56d0)*x885
      x890 = x189*x501
      x891 = x195**(-2)
      x892 = x210*x891
      x893 = x495*x873
      x894 = x499*x891
      x895 = 7.08907512241738d-7*x500*x884
      x896 = -x704 + x706 + x707 - x709 - x711 - x713 + x879 - x880 + x8
     &81 + x882
      x897 = x308 - x474 - x485
      x898 = 5.56d0*x197
      x899 = 512.0d0*x53
      x900 = x518/x539**2
      x901 = x215*x25
      x902 = gamma_cc*x590*x899*(x25*x525*x586*x868*(-x530*x840*x875 + x
     &531*x871 + x823 + x863*x873 - 7.08907512241738d-7*x866 + 3.5445375
     &6120869d-7 *x867)/x535**2 + x490*x527*x584*(-x205*x864*x878 + x208
     &*x822*x825 - x208*x835 + x490*x828 - x490*x862 + x525*x840*x878*ex
     &p(2.0d0* x522) + x820 + x830 - x831*x833 + x865*(x714 - x879 + x88
     &0 - x881 - x882) - x871*x875 - x874*x876) - x530*x832*x833 - x532*
     &x838* x841*x869*x872 + x534*x823*x825 - x537*x584*x869*x871 - x537
     &*x835 - x584*x823*x870 + x586*x828 - x586*x862 - x589*( 3.30823505
     &712811d-6*gamma_cc*x200*x245*x884 + 0.552318141716643d0 *rho_c**(-
     &6.0d0)*x192*x196*x494*x497 + x191*x206*x840*x886*x888 - 1.77226878
     &060434d-7*x201*x212*x463*x497*x509 - x205*x886*x887 - x206*x478*x8
     &33 + x206*x511*x829 + x206*x820 - x210*x454*(x843* x897 - x845*x89
     &7 + x861) - x454*x499*(-x197*x858 - 0.959578581789577d0*x705 + 0.7
     &19683936342183d0*x710 + 11.12d0* x736 - 11.12d0*x737 + 0.719683936
     &342183d0*x738 + 11.12d0*x739 + 0.719683936342183d0*x842*x897 - 11.
     &12d0*x844*x897 - 5.56d0*x848 + 0.479789290894789d0*x849 - 0.046577
     &784912678d0*x850 + 12.568477251959d0*x851 - 12.7850682005135d0*x85
     &2 - 15.0821727023508d0*x853 - x855*x898 - 11.12d0*x856*x857 + x859
     &* x898 + 0.719683936342183d0*x860) + x476*x507*x892 + x488*x511* x
     &840*x883 - x489*x887*x896 + 4.68666633093149d-6*x495*x643 + x496 *
     &*2*x894 + x496*x507*x894 + x497*x893 + x497*x895 - x509*x890* x896
     & + x511*x836 + x827*x892 + x876*x883 - x889*x890 + 1.0633612683626
     &1d-6*x500*x888*x889/x190**3) + x820*x821 + x821* x830 + x825*x839*
     &x841 + x836*x839) - 7145614.42661715d0*x17**( -6.56d0)*x530*x536*x
     &900*x901*(x451*x534 + x480*x512*x837 - x533* x870 + x832) - 1388.8
     &619466913d0*x443*x819 + x445*(-x748 + x750 + x754 + x756 - x757 + 
     &x758 + x759 + x760 - x762 - x763 - x764 - x766 - x768 + x769 + x77
     &2 - x775 + x779 + x799 - x805 - x816) + 1177.33002134225d0*x446*x8
     &17 - 1157.38495557608d0*x446*x818 + x740
      x903 = 0.00130908053100055d0*x101*x744
      x904 = x124*x220*x267 - 4.0d0*x328 - 2.0d0*x443*x444 + 2.712620989
     &63145d0*x450 - 2.0d0*x517*x542
      x905 = x53*x591
      x906 = x261*x557
      x907 = gamma_cc*x91
      x908 = x81*x907
      x909 = x79*x908
      x910 = -x560 + x563 - x73
      x911 = x562*x72
      x912 = x69*x911
      x913 = x637 + x638*x69
      x914 = x257*(x18*x259*x910 + x234*x628*x911 + x244*x912 - 7.803566
     &57325958d-5* x247 + x253*(x251 + x640) + x255 - x621*x626 + x627*x
     &66 - x642* x913)
      x915 = x52*x914
      x916 = x263*x52
      x917 = x565*x916
      x918 = x309*x557
      x919 = -x46 - x546 + x552
      x920 = 1.9508916433149d-5*x290
      x921 = x281*x689
      x922 = x36*x687
      x923 = x42*x550
      x924 = x285*x923
      x925 = x293*(x284 + x287 + x693 + x694)
      x926 = x550*x671*x691
      x927 = 0.00578306637888076d0*x39
      x928 = x33*x42
      x929 = x927 + 3.34438567425411d-5*x928
      x930 = x699*x929
      x931 = x295 - x920 - x921 + x922 + x924 + x925 + x926 - x930
      x932 = x24*x296*x297*x919 + x931
      x933 = 1.0d0*x298
      x934 = x932*x933
      x935 = x54*x908
      x936 = x554*x916
      x937 = -x85*x934 - 0.0165625d0*x918 + 0.033125d0*x935 + 0.0165625d
     &0*x936
      x938 = x52*x91
      x939 = x572*x938
      x940 = -x318*x934 - 0.046375d0*x918 + 0.09275d0*x935 + 0.046375d0*
     &x936
      x941 = 3.0d0*x577
      x942 = x313*x52
      x943 = 9.0d0*x315
      x944 = 0.2008125d0*x262
      x945 = 0.401625d0*x264
      x946 = 3.0d0*x319
      x947 = 0.139125d0*x310
      x948 = x946 - x947
      x949 = 512.0d0*x18
      x950 = x701*x949
      x951 = gamma_cc*x326*x52*x553*x950 - 512.0d0*x298*(x285 + x324 + x
     &920 + x921 - x922 - x924 - x925 - x926 + x930)
      x952 = x112*x337
      x953 = x208*x453
      x954 = 1.77226878060434d-7*x498
      x955 = gamma_cc*x483
      x956 = x210 + x587*x955
      x957 = x955*x956
      x958 = x217*x957
      x959 = x482**(-2)
      x960 = x212*x217
      x961 = x214**(-2)
      x962 = x202*x955
      x963 = x841 + 7.08907512241738d-7*x962
      x964 = x216 + x954 - x958
      x965 = gamma_cc*x519*x520*x900*x961*x964 - x541*x899*(gamma_cc*x20
     &8*x492*x840 - 1.77226878060434d-7*x191*x202*x25*x516 - x215*x953*x
     &957 + x216* x483*x515*x872*x961*x963 + x216*x511 + 4.1352938214101
     &4d-7*x245* x495 - x490*x491*x901*x956*x959 + x511*x954 - x511*x958
     & - x515* x960 + x953 - x960*(x497*x588 + x514 + x893 + x895))
      x966 = x556*x558
      x967 = x557*x565
      x968 = x18*x566
      x969 = rho_c**(-7.0d0)
      x970 = 3020.29322777679d0*x969
      x971 = x625*x970
      x972 = x562*x624
      x973 = x562*x69*x913
      x974 = x257*x68
      x975 = x974*(x248 - x561*x911 - x637*x972 + x641*x973 - 3.86816087
     &015788d-7* x971)
      x976 = x564*x616*x910
      x977 = x556*x569
      x978 = x554*x557
      x979 = 1.0d0*x18
      x980 = x85*x979
      x981 = x733*x970
      x982 = 4.83520108769735d-8*x981
      x983 = x548*x550
      x984 = x43*x550*x927
      x985 = x42*x549*x929
      x986 = x697*x985
      x987 = x297*x41
      x988 = x987*(x547 - x982 - x983 - x984 + x986)
      x989 = x553*x701*x919
      x990 = -x980*x988 - x980*x989
      x991 = -0.0165625d0*x977 - 0.033125d0*x978 + x990
      x992 = x18*x574
      x993 = x318*x979
      x994 = -x988*x993 - x989*x993
      x995 = -0.046375d0*x977 - 0.09275d0*x978 + x994
      x996 = x907*x93
      x997 = x53*x996
      x998 = x553**2*x950 + x949*x987*(-x547 + x982 + x983 + x984 - x986
     &)
      x999 = 3.54453756120869d-7*x202
      x1000 = x210*x955 + 1.0d0
      x1001 = x1000 + x204*x959
      x1002 = 1d0/x1001
      x1003 = x1002*x956
      x1004 = x1003*x955
      x1005 = x1000*x210
      x1006 = x1002*x17
      x1007 = x1006*x215*x964*(-x1004*x1005 + x1005 + 1.77226878060434d-
     &7*x962)/x218** 2 + x1006*x483*(88.3758007628711d0*x1000*x1002*x17*
     &*(-11.34d0)* x199**8.34d0*x955*x969 + x1000*x1003*x841 + x1004*x99
     &9 - x999 - x1005*x957*x963/x1001**2)/x218
      x1008 = x17*x336*x422
      x1009 = x231*x55
      x1010 = x313*x79
      x1011 = x259*x52
      x1012 = x313*x54
      x1013 = -0.033125d0*x1012 + 0.0165625d0*x300 - 0.033125d0*x328 + 0
     &.00214384266109126d0*x330
      x1014 = x594*x95
      x1015 = -0.09275d0*x1012 + 0.046375d0*x300 - 0.09275d0*x328 + 0.00
     &600275945105553d0*x330
      x1016 = x263*x53
      x1017 = 3.0d0*x1016
      x1018 = -x946 + x947
      x1019 = x600*x602
      x1020 = x102*x579
      x1021 = x17*(x60 - x77)
      x1022 = x23 - x50
      x1023 = x1022*x17
      x1024 = x258*x564
      x1025 = gamma_cc*x554
      x1026 = 0.0165625d0*x1025
      x1027 = 3.0d0*x17
      x1028 = 0.046375d0*x1025
      x1029 = gamma_cc*x102*x93*x942
      x1030 = 33.6d0*x86
      x1031 = x25*x604/tau_c**4
      x1032 = x51 + x78
      x1033 = x1032*x83
      x1034 = 0.011953125d0*x1033 + x87
      x1035 = 0.03346875d0*x1033 + x89
      x1036 = -x1035*x95 + 512.0d0
      x1037 = x1034*x1036
      x1038 = -rho_c*(-x103*(-x1037 + x99) + x219)
      x1039 = x22*x53
      x1040 = x49*x53
      x1041 = 0.5d0*rho_c
      x1042 = -1.0d0*x1039 + 0.5d0*x1040 + x1041*x261 + x1041*x309 - 0.5
     &d0*x53*x59 + 0.25d0*x53*x76
      x1043 = x1042*x263
      x1044 = x1016*x1032
      x1045 = 0.02390625d0*x1043 - 0.035859375d0*x1044 + x311
      x1046 = x1035*x314
      x1047 = 0.0669375d0*x1043
      x1048 = 0.10040625d0*x1044
      x1049 = 3.0d0*x1046 - x1047 + x1048 + x321
      x1050 = x1034*x95
      x1051 = x101*(x1036*x1045 + x1049*x1050 + x333)
      x1052 = x1037 + x338
      x1053 = x1052*x124
      x1054 = -x103*x1052 + x544*(-x1051 - x1053*x337 + x543) + x545
      x1055 = x286*x70
      x1056 = x286*x43
      x1057 = x257*(-x1055*x912 + x1055 + x34*x69) + x297*(-x1056*x923 +
     & x1056 + 4.18048209281763d-6*x928)
      x1058 = x1057*x83
      x1059 = x1032*x17
      x1060 = x1059*x557
      x1061 = 0.02390625d0*x1058 + 0.02390625d0*x1060 + x571
      x1062 = x1035*x17
      x1063 = gamma_cc*(0.0669375d0*x1058 + 0.0669375d0*x1060 + x576)
      x1064 = 3.0d0*x1062 + x1063
      x1065 = x1064*x579
      x1066 = x1034*x92
      x1067 = x1036*x1061 - x1065*x1066 + x555
      x1068 = x102*x1067
      x1069 = x593*(-x1068 + x592)
      x1070 = 0.02390625d0*x59
      x1071 = 0.011953125d0*x76
      x1072 = x1070 - x1071 + 0.0146875d0*x22 - 0.00734375d0*x49
      x1073 = 0.0669375d0*x59
      x1074 = 0.03346875d0*x76
      x1075 = x1073 - x1074 + 0.041125d0*x22 - 0.0205625d0*x49
      x1076 = x1075*x83
      x1077 = 0.10040625d0*x1033 - x1076 + x595
      x1078 = x1077*x600
      x1079 = gamma_cc*x1034
      x1080 = x1036*x1072 + x1078*x1079
      x1081 = -x1080*x605
      x1082 = x263*(x1041*x647 + x1041*x715 + x261 + x301 + x307 - 2.0d0
     &*x328)
      x1083 = x1042*x650
      x1084 = x1032*x53
      x1085 = x1084*x650
      x1086 = x1049*x94
      x1087 = 2.0d0*x91
      x1088 = x101*x1052
      x1089 = -0.00390625d0*x1051 - x1053*x903 + x544*(-x101*(x1036*(0.0
     &2390625d0* x1082 - 0.1434375d0*x1083 + 0.1434375d0*x1085 + x719) +
     & x1045* x1086*x1087 + x1050*(-x1035*x725 - 0.0669375d0*x1082 + 0.4
     &01625d0 *x1083 - 0.401625d0*x1085 + x723*(x1047 - x1048 + x722) + 
     &x727) + x741) - x1051*x742 + x1088*x745 - x1088*x746 + x902) + x90
     &4
      x1090 = x1042*x908
      x1091 = x916*(0.25d0*rho_c*x914 + x1041*x297*x932 + x1057)
      x1092 = x1057*x916
      x1093 = x1084*x908
      x1094 = x1061*x938
      x1095 = x579*x938
      x1096 = 3.0d0*x1063
      x1097 = 9.0d0*x1046
      x1098 = 0.2008125d0*x1043
      x1099 = 0.30121875d0*x1044
      x1100 = -x1068*x52 + x544*(-x101*(x1036*(0.0478125d0*x1090 + 0.023
     &90625d0*x1091 - 0.07171875d0*x1092 - 0.07171875d0*x1093 + x937) - 
     &x1045*x1064* x1095 + x1066*x579*(-gamma_cc*(0.133875d0*x1090 + 0.0
     &669375d0* x1091 - 0.2008125d0*x1092 - 0.2008125d0*x1093 + x940) + 
     &x1096* x942 + x1097 - x1098 + x1099 + x948) + x1086*x1094 + x951) 
     &- x1067*x952 + x965) + x905
      x1101 = x1059*x556
      x1102 = gamma_cc*x1057
      x1103 = x1102*x556
      x1104 = 0.02390625d0*x83
      x1105 = x18*(x974*(x1055*x615*x973 - x40*x972 - x547*x912 + x547 -
     & 9.6704021753947d-8*x971) + 0.25d0*x976 + x987*(x1056*x696*x985 + 
     &x34 - x546*x550 - x551 - 2.41760054384867d-8*x981) + 0.5d0*x989)
      x1106 = 0.0669375d0*x83
      x1107 = -x593*(x1007 - x102*(x1034*x997*(6.0d0*x1062 + 6.0d0*x1063
     & + x25*( 0.0669375d0*x1101 + 0.26775d0*x1103 + x1105*x1106 + x995)
     &) - x1036*(0.02390625d0*x1101 + 0.095625d0*x1103 + x1104*x1105 + x
     &991 ) + 2.0d0*x1065*x1094 + x998))
      x1108 = 0.02390625d0*rho_c
      x1109 = x1032*x314
      x1110 = x1072*x95
      x1111 = 0.0669375d0*rho_c
      x1112 = x1079*x600
      x1113 = -x1020*(rho_c*(x1008*x1080 + x80*(gamma_cc*x1045*x1078 + x
     &1036*(x1013 + 0.07171875d0*x1109 - x313*(-0.0478125d0*x1039 + 0.02
     &390625d0* x1040 - x1070*x53 + x1071*x53 + x1108*x261 + x1108*x309)
     &) + x1049 *x1110 + x1112*(x1017*x1075 + x1018 - x1097 + x1098 - x1
     &099 - x83 *(x1015 + 0.2008125d0*x1109 - x313*(-0.133875d0*x1039 + 
     &0.0669375d0*x1040 - x1073*x53 + x1074*x53 + x1111*x261 + x1111* x3
     &09))))) + x1080*x724)
      x1114 = -x1029*(x1036*(x1026 - 0.0478125d0*x1059 - 0.0478125d0*x11
     &02 + 0.033125d0*x569) + x1061*x1078*x25 - x1064*x1110 + x1112*(-x1
     &027* x1076 + 9.0d0*x1062 + x1096 - x83*(x1028 - 0.133875d0*x1059 -
     & 0.133875d0*x1102 + 0.09275d0*x569)))
      x1115 = -x1031*(-x1036*(0.0440625d0*x22 - 0.02203125d0*x49 + 0.071
     &71875d0*x59 - 0.035859375d0*x76) + 2.0d0*x1077*x1110 + x1112*(x103
     &0 - 0.401625d0*x1033 + 6.0d0*x1076 + x83*(0.123375d0*x22 - 0.06168
     &75d0*x49 + 0.2008125d0*x59 - 0.10040625d0*x76)))
      x1116 = 0.015625d0*x83
      x1117 = x1116 - 1.0d0
      x1118 = 0.04375d0*x83
      x1119 = x1118 - 2.8d0
      x1120 = x1119*x54
      x1121 = x91*x94
      x1122 = x1120*x1121
      x1123 = -x1122 + 512.0d0
      x1124 = x1117*x1123*x51
      x1125 = x1016*x1022
      x1126 = 0.03125d0*x1125
      x1127 = x308 - 1.0d0*x327
      x1128 = x1127*x83
      x1129 = 0.02390625d0*x1128
      x1130 = x1127*x85
      x1131 = x1022*x314
      x1132 = x1127*x318
      x1133 = -0.0875d0*x1125 - 0.0669375d0*x1128 + x1132
      x1134 = x1022*x95
      x1135 = x101*(-x1134*(-x1116 + 1.0d0)*(3.0d0*x1131*(-x1118 + 2.8d0
     &) + x1133) + x329 - x331 + x734*x735 + (x1122 - 512.0d0)*(x1126 + 
     &x1129 - x1130))
      x1136 = x1124 + x338
      x1137 = x1136*x124
      x1138 = x1104*x554 + x568 + 0.03125d0*x570
      x1139 = x1119*x569
      x1140 = gamma_cc*(x1106*x554 + 0.0875d0*x570 + x575)
      x1141 = 3.0d0*x1139 + x1140
      x1142 = x1117*x54
      x1143 = x1142*x579*x91
      x1144 = x1123*x1138 - x1141*x1143 + x555
      x1145 = x102*x1144
      x1146 = x1022*x1123
      x1147 = 0.175d0*x22 - 0.0875d0*x49
      x1148 = x1147*x83
      x1149 = x1119*x51
      x1150 = -x1148 + 3.0d0*x1149
      x1151 = gamma_cc*x1012*x1117*x599
      x1152 = 0.03125d0*x1146 + x1150*x1151
      x1153 = x715*x83
      x1154 = -x1126 - x1129 + x1130
      x1155 = x1012*x1119
      x1156 = x1133 + 3.0d0*x1155
      x1157 = x1156*x94
      x1158 = x101*x1136
      x1159 = 0.0625d0*x1022
      x1160 = x53*x908
      x1161 = x1127*x557
      x1162 = x1025*x702 + x931
      x1163 = x1162*x298
      x1164 = x1162*x933
      x1165 = x1095*x1141
      x1166 = 0.2625d0*x1125
      x1167 = 9.0d0*x1155
      x1168 = 0.2008125d0*x1128
      x1169 = 3.0d0*x1132
      x1170 = 3.0d0*x1140
      x1171 = x1104*x18
      x1172 = x1106*x18
      x1173 = x1150*x600
      x1174 = 0.03125d0*x1134
      PBE_value = x54
      PBE_beta_value = x79
      PBE_alpha_value = x79
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(-x103*(-x97 + x99) + x219)
      d1E(1) = -x103*x339 + x544*(-x334 - x337*x340 + x543) + x545
      d1E(3) = x593*(-x583 + x592)
      d1E(6) = -x603*x605
      d2E(1) = -0.00390625d0*x334 - x340*x903 + x544*(-x101*(x323*(-0.06
     &69375d0*x648 + 0.26775d0*x649 - 0.401625d0*x651 + x723*(x316 - x31
     &7 + x722) - x725*x90 + x727) + 2.0d0*x720*x721 + x741 + x96*(0.023
     &90625d0* x648 - 0.095625d0*x649 + 0.1434375d0*x651 + x719)) - x334
     &*x742 + x743*x745 - x743*x746 + x902) + x904
      d2E(4) = -x52*x583 + x544*(-x101*(-x52*x580*x720 + x579*x581*(-gam
     &ma_cc*(x574* x915 + 0.133875d0*x906 - 0.26775d0*x909 - 0.0669375d0
     &*x917 + x940 ) + x941*x942 + x943 - x944 + x945 + x948) + x721*x93
     &9 + x951 + x96*(x566*x915 + 0.0478125d0*x906 - 0.095625d0*x909 - 0
     &.02390625d0*x917 + x937)) - x582*x952 + x965) + x905
      d2E(6) = -x593*(x1007 - x102*(2.0d0*x580*x939 + x88*x997*(x25*(0.1
     &33875d0*x966 + 0.133875d0*x967 + x975*x992 + x976*x992 + x995) + 6
     &.0d0*x573 + 6.0d0*x577) - x96*(0.0478125d0*x966 + 0.0478125d0*x967
     & + x968* x975 + x968*x976 + x991) + x998))
      d2E(16) = -x1020*(rho_c*(x1008*x603 + x80*(gamma_cc*x312*x601 + x1
     &014*x322 + x1019 *(x1017*x596 + x1018 - x83*(0.133875d0*x1009 + 0.
     &26775d0*x1010 - 0.0669375d0*x1011 + x1015 - 0.0104965087592337d0*x
     &222) - x943 + x944 - x945) + x96*(0.0478125d0*x1009 + 0.095625d0*x
     &1010 - 0.02390625d0*x1011 + x1013 - 0.00374875312829775d0*x222))) 
     &+ x603 *x724)
      d2E(18) = -x1029*(-x1014*x578 + x1019*(-x1027*x597 + 9.0d0*x573 + 
     &x83*(-0.26775d0* x1021 + 0.09275d0*x1023 + 0.0669375d0*x1024 - x10
     &28) + x941) + x25*x572*x601 - x96*(-0.095625d0*x1021 + 0.033125d0*
     &x1023 + 0.02390625d0*x1024 - x1026))
      d2E(21) = -x1031*(2.0d0*x1014*x598 + x1019*(x1030 + 6.0d0*x597 + x
     &83*(-0.27825d0* x22 + 0.139125d0*x49 + 0.401625d0*x59 - 0.2008125d
     &0*x76) - 0.80325d0*x84) - x96*(-0.099375d0*x22 + 0.0496875d0*x49 +
     & 0.1434375d0*x59 - 0.07171875d0*x76))
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = x1038
      d1E(1) = x1054
      d1E(3) = x1069
      d1E(6) = x1081
      d2E(1) = x1089
      d2E(4) = x1100
      d2E(6) = x1107
      d2E(16) = x1113
      d2E(18) = x1114
      d2E(21) = x1115
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = x1038
      d1E(1) = x1054
      d1E(3) = x1069
      d1E(6) = x1081
      d2E(1) = x1089
      d2E(4) = x1100
      d2E(6) = x1107
      d2E(16) = x1113
      d2E(18) = x1114
      d2E(21) = x1115
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(-x103*(-x1124 + x99) + x219)
      d1E(1) = -x103*x1136 + x544*(x1135 - x1137*x337 + x543) + x545
      d1E(3) = x593*(-x1145 + x592)
      d1E(6) = -x1152*x605
      d2E(1) = 0.00390625d0*x1135 - x1137*x903 + x544*(-x101*(-x1087*x11
     &54*x1157 - x1121*x1142*(12.0d0*x1120*x80 + x1133*x723 + 0.0669375d
     &0*x1153 - 0.175d0*x717 + 0.2625d0*x718 - x726) + x1123*(0.02390625
     &d0*x1153 + x716 - 0.0625d0*x717 + 0.09375d0*x718) + x741) + x1135*
     &x742 + x1158*x745 - x1158*x746 + x902) + x904
      d2E(4) = -x1145*x52 + x544*(-x101*(-x1123*(-x1104*x1163 - x1159*x1
     &160 - 0.03125d0 *x1161 + x1164*x85 + 0.03125d0*x936) + x1138*x1157
     &*x938 + x1143*( gamma_cc*(-0.175d0*x1022*x1160 - x1106*x1163 - 0.0
     &875d0*x1161 + x1164*x318 + 0.0875d0*x936) - x1166 + x1167 - x1168 
     &+ x1169 + x1170*x942) + x1154*x1165 + x951) - x1144*x952 + x965) +
     & x905
      d2E(6) = -x593*(x1007 - x102*(-x1123*(x1171*x988 + x1171*x989 + 0.
     &03125d0*x977 + 0.0625d0*x978 + x990) + 2.0d0*x1138*x1165 + x1142*x
     &996*(6.0d0* x1139 + 6.0d0*x1140 + x25*(x1172*x988 + x1172*x989 + 0
     &.0875d0* x977 + 0.175d0*x978 + x994)) + x998))
      d2E(16) = -x1020*(rho_c*(x1008*x1152 + x80*(-gamma_cc*x1154*x1173 
     &- x1123*( 0.0625d0*x1131 - 0.03125d0*x327 - 0.0625d0*x328 + 0.0040
     &4498615300238d0*x330) + x1151*(x1017*x1147 + x1166 - x1167 + x1168
     & - x1169 + x83*(0.175d0*x1131 - 0.0875d0*x327 - 0.175d0* x328 + 0.
     &0113259612284067d0*x330)) + x1156*x1174)) + x1152*x724)
      d2E(18) = -x1029*(-x1123*(-0.0625d0*x1023 + 0.03125d0*x1025) + x11
     &38*x1173*x25 - x1141*x1174 + x1151*(-x1027*x1148 + 9.0d0*x1139 + x
     &1170 + x83*( -0.175d0*x1023 + 0.0875d0*x1025)))
      d2E(21) = -x1031*(-0.09375d0*x1146 + x1150*x1159*x95 + x1151*(6.0d
     &0*x1148 - 12.0d0 *x1149 + x83*(0.525d0*x22 - 0.2625d0*x49)))
      end if
      end subroutine


C*****************************************************************************
      pure subroutine ESRC_SPIN_TPSS_GWS_ERF(rho_c, rho_s, gamma_cc, gam
     &ma_ss, gamma_cs, tau_c, mu, E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, gamma_ss, gamma_cs, 
     &tau_c, mu
      real*8, intent(out) :: E
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &
      E = 0.0d0
      x0 = 0.682784063255296d0
      x1 = rho_c**(-0.333333333333333d0)
      x2 = x0*x1
      x3 = 2.14502939711103d0
      x4 = 1d0/x3
      x5 = rho_c**0.666666666666667d0
      x6 = x4/x5
      x7 = 0.564189583547756d0
      x8 = rho_c**(-0.5d0)*x7
      x9 = 0.826307487110758d0
      x10 = rho_c**(-0.166666666666667d0)*x9
      x11 = 9.86960440108936d0
      x12 = 0.693147180559945d0
      x13 = -x12 + 1.0d0
      x14 = 1d0/x13
      x15 = x11*x14
      x16 = (0.186690969707574d0*x2 + 1.0d0)*log(x15/(13.457913714394447
     &d0*x10 + 5.630984149097876d0*x2 + 0.51606646454786342d0*x6 + 2.915
     &2147142191778d0*x8) + 1.0d0)
      x17 = (0.194159335344114d0*x2 + 1.0d0)*log(0.5d0*x15/(7.2401019343
     &168302d0*x10 + 3.2595509194222925d0*x2 + 0.40691300451752932d0*x6 
     &+ 1.4187228164796675d0*x8) + 1.0d0)
      x18 = 2.0d0*x17
      x19 = -x16 + x18
      x20 = rho_s/rho_c
      x21 = x20 + 1.0d0
      x22 = x21**1.33333333333333d0
      x23 = -x20 + 1.0d0
      x24 = x23**1.33333333333333d0
      x25 = 1.92366105093154d0*x22 + 1.92366105093154d0*x24 - 3.84732210
     &186307d0
      x26 = rho_s**4/rho_c**4
      x27 = 1d0/x11
      x28 = x13*x27
      x29 = x25*x26*x28
      x30 = x19*x29
      x31 = x18*x28
      x32 = x25*(0.101077332976288d0*x2 + 1.0d0)*(-x26 + 1.0d0)*log(1.0d
     &0 + 29.608574643216677d0/(9.8721297225692712d0*x10 + 3.29180480994
     &50625d0*x2 + 0.41002507094961249d0*x6 + 0.76232752193529008d0*x8))
     &
      x33 = 0.0197517897025652d0*x32
      x34 = -x31 + x33
      x35 = x30 + x34
      x36 = x21**0.666666666666667d0 + x23**0.666666666666667d0
      x37 = x36**3
      x38 = 8.0d0*x15/x37
      x39 = 1.0d0 - exp(-x35*x38)
      x40 = rho_c**(-4.66666666666667d0)
      x41 = gamma_cc**2
      x42 = 208.945363813799d0/x13**2
      x43 = 0.000133775426970164d0*x40*x41*x42/x36**4
      x44 = 14.454942539277d0*x14
      x45 = 0.0115661327577615d0*gamma_cc*rho_c**(-2.33333333333333d0)*x
     &44/x36**2
      x46 = 1.0d0 - x45/x39
      x47 = x28*x37
      x48 = 0.125d0*x47
      x49 = x29*(x16 - x18)
      x50 = x34 - x49
      x51 = rho_c + rho_s
      x52 = 1d0/x51
      x53 = x0*x52**0.333333333333333d0
      x54 = 0.819204448708788d0*x4
      x55 = 4.12273618607837d0*x7
      x56 = 15.10599739383d0*x9
      x57 = (0.235215882559859d0*x53 + 1.0d0)*log(x15/(x52**0.1666666666
     &6666666d0* x56 + sqrt(x52)*x55 + x52**0.66666666666666663d0*x54 + 
     &7.0945954610727853d0*x53) + 1.0d0)
      x58 = exp(2.0000000000000004d0*x57) - 1.0d0
      x59 = 0.5d0*gamma_cs
      x60 = 0.25d0*gamma_cc + 0.25d0*gamma_ss
      x61 = x59 + x60
      x62 = 0.000535101707880657d0*x42
      x63 = 0.0231322655155231d0*x44
      x64 = x51**(-2.33333333333333d0)*x61*x63
      x65 = 1.0d0 + x64/x58
      x66 = -1.0d0*x57 + 0.5d0*log(x64*x65/(x51**(-4.666666666666667d0)*
     &x61**2*x62/ x58**2 + x65) + 1.0d0)
      x67 = rho_c - rho_s
      x68 = 1d0/x67
      x69 = x0*x68**0.333333333333333d0
      x70 = (0.235215882559859d0*x69 + 1.0d0)*log(x15/(x54*x68** 0.66666
     &666666666663d0 + x55*sqrt(x68) + x56*x68** 0.16666666666666666d0 +
     & 7.0945954610727853d0*x69) + 1.0d0)
      x71 = exp(2.0000000000000004d0*x70) - 1.0d0
      x72 = -x59 + x60
      x73 = x63*x67**(-2.33333333333333d0)*x72
      x74 = 1.0d0 + x73/x71
      x75 = -1.0d0*x70 + 0.5d0*log(x73*x74/(x62*x67**(-4.666666666666667
     &d0)*x72**2/ x71**2 + x74) + 1.0d0)
      x76 = x51*x66
      x77 = x67*x75
      x78 = rho_c**(-3)
      x79 = 0.5d0*x26
      x80 = rho_c**2
      x81 = 1d0/x80
      x82 = rho_s**2
      x83 = x81*x82
      x84 = 4.60115111447049d0
      x85 = 1d0/x84
      x86 = (x79 + 0.87d0*x83 + 0.53d0 + 2.26d0*rho_s**6/rho_c**6)/( 0.0
     &60093732096142d0*x40*x85*(1d0/x24 + 1d0/x22)*(gamma_cc*x82 - 2.0d0
     &*gamma_cs*rho_c*rho_s + gamma_ss*x80) + 1.0d0)**4
      x87 = x86 + 1.0d0
      x88 = x41/tau_c**2
      x89 = x78*x87*x88
      x90 = x27*x89*(-0.5d0*x12 + 0.5d0)*(x76 + x77)
      x91 = x81*x88
      x92 = x31 - x33
      x93 = exp(x38*(-x30 + x92)) - 1.0d0
      x94 = x45/x93 + 1.0d0
      x95 = log(x45*x94/(x43/x93**2 + x94) + 1.0d0)
      x96 = x35 + x48*x95
      x97 = x96*(x86*x91 + 64.0d0)
      x98 = 2.8d0*x97
      x99 = gamma_cc**3*x78/tau_c**3
      x100 = x17*x28
      x101 = x47*x95
      x102 = -4194304.0d0*x100 + 262144.0d0*x101 + 2097152.0d0*x30 + 414
     &22.505278314d0*x32
      x103 = 4.76837158203125d-7*exp(-1.0053738478084204d0*mu*x1*x4)
      x104 = -x83 + 1.0d0
      x105 = rho_c**(-1.33333333333333d0)*x85
      x106 = 3.14159265358979d0
      x107 = rho_c**1.0d0
      x108 = 1d0/x107
      x109 = x108/x106
      x110 = (0.00126674656487366d0*x105 - 0.009578475d0*x109 + 0.018817
     &1922990732d0* x2 + 0.0676322201645715d0*x6 + 1.0d0)*exp(-0.6836107
     &611867116d0* x2)
      x111 = x104*x110
      x112 = 1.41421356237310d0
      x113 = rho_c**(-1.66666666666667d0)
      x114 = 0.0837224526465878d0*x113
      x115 = 0.0892278228691848d0*mu**5*x112*x114
      x116 = x21**0.666666666666667d0 + x23**0.666666666666667d0
      x117 = x116**3
      x118 = mu**2
      x119 = x118*x2/x116**2
      x120 = 11.1447260721495d0*mu*x10/x116 + 1.0d0
      x121 = mu**3
      x122 = x117*log((27.073371959220147d0*x119 + x120 + 27.14082046241
     &0485d0*x121* x8/x117)/(12.532717071175123d0*x119 + x120))
      x123 = 0.0315054072231411d0*x108
      x124 = 1d0/x21
      x125 = x124**0.666666666666667d0
      x126 = 0.0524148278841779d0*x6
      x127 = x124**0.333333333333333d0*x2
      x128 = 2.28942848510666d0*x84
      x129 = 0.817704266774463d0*x128
      x130 = x129*x21**2*(-0.0259335011650457d0*x127 + 1.0d0)/(x125*(x12
     &5*x126 + 0.494402081358784d0*x127 + 1.0d0))
      x131 = 1d0/x23
      x132 = x131**0.666666666666667d0
      x133 = x131**0.333333333333333d0*x2
      x134 = x129*x23**2*(-0.0259335011650457d0*x133 + 1.0d0)/(x132*(x12
     &6*x132 + 0.494402081358784d0*x133 + 1.0d0))
      x135 = 0.00111534778586481d0*x114*(12.0d0*x104*x106*x107*(-4.49737
     &346725955d0* x2 + 0.825481812223657d0*x6)*exp(-0.28165369188898165
     &d0*x2) + x130*x5 + x134*x5)
      x136 = 4.0d0*x112*x121
      x137 = 0.0126441184989504d0*mu**8*rho_c**(-2.66666666666667d0)
      x138 = 0.148394183600699d0
      x139 = x104*(x110 - 1.0d0)
      x140 = -0.0167302167879722d0*x113*x138*x139
      x141 = 0.0533250677421794d0*rho_c**(-2.0d0)
      x142 = 4.0d0*mu**6
      x143 = -0.13157433081915d0*x109*x139
      x144 = 0.817704266774463d0*x128*(x21**2.66666666666667d0 + x23** 2
     &.66666666666667d0)
      x145 = 10.9027235569928d0*x104*x3*(-0.352521395009435d0*x2 + 0.558
     &025705063192d0*x6)*exp(-0.49698248213959023d0*x2)
      x146 = 0.00139418473233101d0*rho_c**(-1.0d0)*x138
      x147 = 1.55214407110551d0*x105
      x148 = 4.0d0*mu**4
      x149 = 0.25d0/(0.508616435555896d0*x118*x6 + 1.0d0)**4
      x150 = x149*(-x111*x115 - x122*x28 - x136*(x111*x123 + x135) + x13
     &7*x50 + x142* (x140 + x141*x50) + x148*(x143 - x146*(x130 + x134 -
     & x144 + x145 ) + x147*x50))
      x151 = (-x150 + x50)/x50
      x152 = x110*(x83 - 1.0d0)
      x153 = -1.0d0 + exp(-x38*(-x149*(x115*x152 + x122*x27*(x12 - 1.0d0
     &) + x136*( x123*x152 - x135) + x137*x35 + x142*(x140 + x141*x35) +
     & x148*( x143 + x146*(-x130 - x134 + x144 - x145) + x147*x35)) + x3
     &5))
      x154 = x151**2.78d0*x45
      x155 = 1.0d0 + x154/x153
      x156 = x150 - 0.125d0*x47*log(x154*x155/(x151**5.5599999999999996d
     &0*x43/x153**2 + x155) + 1.0d0) + x49 + x92
      x157 = x89*(x28*x76 + x67*x96)
      x158 = x89*(x28*x77 + x51*x96)
      x159 = x87*x91*(-1.0d0*x100 + 0.0625d0*x101 + x19*x25*x28*x79 + 0.
     &0098758948512826d0*x32)
      PBE_value = x48*log(x45*x46/(x46 + x43/x39**2) + 1.0d0) + x50
      PBE_beta_value = x28*x66
      PBE_alpha_value = x28*x75
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x103*(x102 - (-x90 + x97)*(x99*(-2.8d0*x90 + x98) + 32
     &768.0d0)) + x156)
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x103*(x102 - (-0.5d0*x157 + x97)*(x99*(-1.4d0*x157 + x
     &98) + 32768.0d0)) + x156)
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x103*(x102 - (-0.5d0*x158 + x97)*(x99*(-1.4d0*x158 + x
     &98) + 32768.0d0)) + x156)
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x103*(x102 - (-2.0d0*x159 + x97)*(x99*(-5.6d0*x159 + x
     &98) + 32768.0d0)) + x156)
      end if
      end subroutine


C*****************************************************************************
      pure subroutine D1ESRC_SPIN_TPSS_GWS_ERF(rho_c, rho_s, gamma_cc, g
     &amma_ss, gamma_cs, tau_c, mu, E, d1E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, gamma_ss, gamma_cs, 
     &tau_c, mu
      real*8, intent(out) :: E, d1E(9)
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549, x550, x551, x552, x553, x554, x555
     &, x556, x557, x558, x559, x560, x561, x562, x563, x564, x565, x566
     &, x567, x568, x569, x570, x571, x572, x573, x574, x575, x576, x577
     &, x578, x579, x580, x581, x582, x583, x584, x585, x586, x587, x588
     &, x589, x590, x591, x592, x593, x594, x595, x596, x597, x598, x599
     &, x600, x601, x602, x603, x604, x605, x606, x607, x608, x609, x610
     &, x611, x612, x613, x614, x615, x616, x617, x618, x619, x620, x621
     &, x622, x623, x624, x625, x626, x627, x628, x629, x630, x631, x632
     &, x633, x634, x635, x636, x637, x638, x639, x640, x641, x642, x643
     &, x644, x645, x646, x647, x648, x649, x650, x651, x652, x653, x654
     &, x655, x656, x657, x658, x659, x660, x661, x662, x663, x664, x665
     &, x666, x667, x668, x669, x670, x671, x672, x673, x674, x675, x676
     &, x677, x678, x679, x680, x681, x682, x683, x684, x685, x686, x687
     &, x688, x689, x690, x691, x692, x693, x694, x695, x696, x697, x698
     &, x699, x700, x701, x702, x703, x704, x705, x706, x707, x708, x709
     &, x710, x711, x712, x713, x714, x715, x716, x717, x718, x719, x720
     &, x721, x722, x723, x724, x725, x726, x727, x728, x729, x730, x731
     &, x732, x733, x734, x735, x736, x737, x738, x739, x740, x741, x742
     &, x743, x744, x745, x746, x747, x748, x749, x750, x751, x752, x753
     &, x754, x755, x756, x757, x758, x759, x760, x761, x762, x763, x764
     &, x765, x766, x767, x768, x769, x770, x771, x772, x773, x774, x775
     &, x776, x777, x778, x779, x780, x781, x782, x783, x784, x785, x786
     &, x787, x788, x789, x790, x791, x792, x793, x794, x795, x796, x797
     &, x798, x799, x800, x801, x802, x803, x804, x805, x806, x807, x808
     &, x809, x810, x811, x812, x813, x814, x815, x816, x817, x818, x819
     &, x820, x821, x822, x823, x824, x825, x826, x827, x828, x829, x830
     &, x831, x832, x833, x834, x835, x836, x837, x838, x839, x840, x841
     &, x842, x843, x844, x845, x846, x847, x848, x849, x850, x851, x852
     &, x853, x854, x855, x856, x857, x858, x859, x860, x861, x862, x863
     &, x864, x865, x866, x867, x868, x869, x870, x871, x872, x873, x874
     &, x875, x876, x877, x878, x879, x880, x881, x882, x883, x884, x885
     &, x886, x887, x888, x889, x890, x891, x892, x893, x894, x895, x896
     &, x897, x898, x899, x900, x901, x902, x903, x904, x905, x906, x907
     &, x908, x909, x910, x911, x912, x913, x914, x915, x916, x917, x918
     &, x919, x920, x921, x922, x923, x924, x925, x926, x927, x928, x929
     &, x930, x931, x932, x933, x934, x935, x936, x937, x938, x939, x940
     &, x941, x942, x943, x944, x945, x946, x947, x948, x949, x950, x951
     &, x952, x953, x954, x955, x956, x957, x958, x959, x960, x961, x962
     &, x963, x964, x965, x966, x967, x968, x969, x970, x971, x972, x973
     &, x974, x975, x976, x977, x978, x979, x980, x981, x982, x983, x984
     &, x985, x986, x987, x988, x989, x990, x991, x992, x993, x994, x995
     &, x996, x997, x998, x999, x1000, x1001, x1002, x1003, x1004, x1005
     &, x1006, x1007, x1008, x1009, x1010, x1011, x1012, x1013, x1014, x
     &1015, x1016, x1017, x1018, x1019, x1020, x1021, x1022, x1023
      E = 0.0d0
      d1E(:) = 0.0d0
      x0 = 1.46459188756152d0
      x1 = 1d0/x0
      x2 = rho_c**(-0.333333333333333d0)
      x3 = x1*x2
      x4 = 0.186690969707574d0*x3 + 1.0d0
      x5 = 2.14502939711103d0
      x6 = 1d0/x5
      x7 = rho_c**0.666666666666667d0
      x8 = 1d0/x7
      x9 = x6*x8
      x10 = 0.564189583547756d0
      x11 = rho_c**(-0.5d0)*x10
      x12 = 0.826307487110758d0
      x13 = rho_c**(-0.166666666666667d0)*x12
      x14 = 2.91521471421918d0*x11 + 13.4579137143944d0*x13 + 5.63098414
     &909788d0*x3 + 0.516066464547863d0*x9
      x15 = 9.86960440108936d0
      x16 = 0.693147180559945d0
      x17 = -x16 + 1.0d0
      x18 = 1d0/x17
      x19 = x15*x18
      x20 = 1.0d0 + x19/x14
      x21 = log(x20)
      x22 = x21*x4
      x23 = 0.194159335344114d0*x3 + 1.0d0
      x24 = 1.41872281647967d0*x11 + 7.24010193431683d0*x13 + 3.25955091
     &942229d0*x3 + 0.406913004517529d0*x9
      x25 = x19/x24
      x26 = log(0.5d0*x25 + 1.0d0)
      x27 = x23*x26
      x28 = 2.0d0*x27
      x29 = -x22 + x28
      x30 = 1d0/x15
      x31 = x17*x30
      x32 = 1d0/rho_c
      x33 = rho_s*x32
      x34 = x33 + 1.0d0
      x35 = x34**1.33333333333333d0
      x36 = -x33 + 1.0d0
      x37 = x36**1.33333333333333d0
      x38 = 1.92366105093154d0*x35 + 1.92366105093154d0*x37 - 3.84732210
     &186307d0
      x39 = rho_c**(-4)
      x40 = rho_s**4
      x41 = x39*x40
      x42 = x38*x41
      x43 = x31*x42
      x44 = x29*x43
      x45 = x28*x31
      x46 = -x41 + 1.0d0
      x47 = 0.101077332976288d0*x3 + 1.0d0
      x48 = 0.76232752193529d0*x11 + 9.87212972256927d0*x13 + 3.29180480
     &994506d0*x3 + 0.410025070949612d0*x9
      x49 = 1.0d0 + 29.6085746432167d0/x48
      x50 = log(x49)
      x51 = x47*x50
      x52 = x46*x51
      x53 = x38*x52
      x54 = 0.0197517897025652d0*x53
      x55 = -x45 + x54
      x56 = x44 + x55
      x57 = x34**0.666666666666667d0 + x36**0.666666666666667d0
      x58 = x57**3
      x59 = 1d0/x58
      x60 = 8.0d0*x19*x59
      x61 = exp(-x56*x60)
      x62 = -x61 + 1.0d0
      x63 = gamma_cc**2
      x64 = 208.945363813799d0
      x65 = rho_c**(-4.66666666666667d0)
      x66 = 0.000133775426970164d0*x65
      x67 = x17**(-2)
      x68 = x67/x57**4
      x69 = x63*x64*x66*x68
      x70 = 14.4549425392770d0
      x71 = rho_c**(-2.33333333333333d0)
      x72 = x70*x71
      x73 = 0.0115661327577615d0*x72
      x74 = x57**2
      x75 = 1d0/x74
      x76 = gamma_cc*x75
      x77 = x18*x76
      x78 = x73*x77
      x79 = 1.0d0 - x78/x62
      x80 = x31*x58
      x81 = 0.125d0*x80
      x82 = x22 - x28
      x83 = x43*x82
      x84 = x55 - x83
      x85 = rho_c + rho_s
      x86 = 1d0/x85
      x87 = x86**0.333333333333333d0
      x88 = x1*x87
      x89 = 0.235215882559859d0*x88 + 1.0d0
      x90 = x86**0.666666666666667d0
      x91 = 0.819204448708788d0*x6
      x92 = sqrt(x86)
      x93 = 4.12273618607837d0*x10
      x94 = x86**0.166666666666667d0
      x95 = 15.10599739383d0*x12
      x96 = 7.09459546107279d0*x88 + x90*x91 + x92*x93 + x94*x95
      x97 = x19/x96 + 1.0d0
      x98 = log(x97)
      x99 = x89*x98
      x100 = 1.0d0*x99
      x101 = x85**(-2.33333333333333d0)
      x102 = 0.5d0*gamma_cs
      x103 = 0.25d0*gamma_cc
      x104 = 0.25d0*gamma_ss
      x105 = x103 + x104
      x106 = x102 + x105
      x107 = x18*x70
      x108 = x101*x106*x107
      x109 = exp(2.0000000000000004d0*x99)
      x110 = x109 - 1.0d0
      x111 = 1d0/x110
      x112 = 0.0231322655155231d0*x111
      x113 = x108*x112
      x114 = x113 + 1.0d0
      x115 = x110**(-2)
      x116 = x64*x85**(-4.66666666666667d0)
      x117 = 0.000535101707880657d0*x67
      x118 = 1d0/(x106**2*x115*x116*x117 + x114)
      x119 = x114*x118
      x120 = 0.0231322655155231d0*x108*x119 + 1.0d0
      x121 = log(x120)
      x122 = 0.5d0*x121
      x123 = -x100 + x122
      x124 = rho_c - rho_s
      x125 = 1d0/x124
      x126 = x125**0.333333333333333d0
      x127 = x1*x126
      x128 = 0.235215882559859d0*x127 + 1.0d0
      x129 = x125**0.666666666666667d0
      x130 = sqrt(x125)
      x131 = x125**0.166666666666667d0
      x132 = 7.09459546107279d0*x127 + x129*x91 + x130*x93 + x131*x95
      x133 = 1.0d0 + x19/x132
      x134 = log(x133)
      x135 = x128*x134
      x136 = 1.0d0*x135
      x137 = x124**(-2.33333333333333d0)
      x138 = -x102 + x105
      x139 = x107*x137*x138
      x140 = exp(2.0000000000000004d0*x135)
      x141 = x140 - 1.0d0
      x142 = 1d0/x141
      x143 = 0.0231322655155231d0*x142
      x144 = x139*x143
      x145 = x144 + 1.0d0
      x146 = x141**(-2)
      x147 = x124**(-4.66666666666667d0)*x64
      x148 = 1d0/(x117*x138**2*x146*x147 + x145)
      x149 = x145*x148
      x150 = 0.0231322655155231d0*x139*x149 + 1.0d0
      x151 = log(x150)
      x152 = 0.5d0*x151
      x153 = -x136 + x152
      x154 = tau_c**(-2)
      x155 = x154*x63
      x156 = rho_c**(-3)
      x157 = rho_c**(-6)
      x158 = rho_s**6*x157
      x159 = 0.5d0*x41
      x160 = rho_c**2
      x161 = 1d0/x160
      x162 = rho_s**2
      x163 = x161*x162
      x164 = 2.26d0*x158 + x159 + 0.87d0*x163 + 0.53d0
      x165 = gamma_cc*x162
      x166 = gamma_cs*rho_s
      x167 = gamma_ss*x160 - 2.0d0*rho_c*x166 + x165
      x168 = 4.60115111447049d0
      x169 = 1d0/x168
      x170 = 1d0/x37 + 1d0/x35
      x171 = x170*x65
      x172 = x169*x171
      x173 = 0.060093732096142d0*x167*x172 + 1.0d0
      x174 = x173**(-4)
      x175 = x164*x174
      x176 = x175 + 1.0d0
      x177 = x156*x176
      x178 = x155*x177
      x179 = x123*x85
      x180 = x124*x153
      x181 = -0.5d0*x16 + 0.5d0
      x182 = x181*x30
      x183 = x182*(x179 + x180)
      x184 = x178*x183
      x185 = x155*x161
      x186 = x175*x185
      x187 = x186 + 64.0d0
      x188 = x45 - x54
      x189 = x188 - x44
      x190 = exp(x189*x60)
      x191 = x190 - 1.0d0
      x192 = 1d0/x191
      x193 = x192*x78 + 1.0d0
      x194 = x191**(-2)
      x195 = 1d0/(x193 + x194*x69)
      x196 = x193*x195
      x197 = x196*x78 + 1.0d0
      x198 = log(x197)
      x199 = x198*x81
      x200 = x199 + x56
      x201 = x187*x200
      x202 = -x184 + x201
      x203 = 2.8d0*x184
      x204 = 2.8d0*x201
      x205 = -x203 + x204
      x206 = tau_c**(-3)
      x207 = x156*x206
      x208 = gamma_cc**3*x207
      x209 = x205*x208 + 32768.0d0
      x210 = x27*x31
      x211 = x198*x80
      x212 = -4194304.0d0*x210 + 262144.0d0*x211 + 2097152.0d0*x44 + 414
     &22.505278314d0*x53
      x213 = -x202*x209 + x212
      x214 = mu*x6
      x215 = exp(-1.0053738478084204d0*x2*x214)
      x216 = 4.76837158203125d-7*x215
      x217 = x213*x216
      x218 = 1d0/x84
      x219 = mu**2
      x220 = 0.508616435555896d0*x219*x9 + 1.0d0
      x221 = x220**(-4)
      x222 = -x163 + 1.0d0
      x223 = exp(-0.6836107611867116d0*x3)
      x224 = rho_c**(-1.33333333333333d0)
      x225 = x169*x224
      x226 = rho_c**1.0d0
      x227 = 1d0/x226
      x228 = 3.14159265358979d0
      x229 = 1d0/x228
      x230 = 0.009578475d0*x229
      x231 = 0.00126674656487366d0*x225 - x227*x230 + 0.0188171922990732
     &d0*x3 + 0.0676322201645715d0*x9 + 1.0d0
      x232 = x223*x231
      x233 = x222*x232
      x234 = 0.0837224526465878d0
      x235 = 1.41421356237310d0
      x236 = mu**5*x235
      x237 = x234*x236
      x238 = x233*x237
      x239 = rho_c**(-1.66666666666667d0)
      x240 = 0.0892278228691848d0*x239
      x241 = x34**0.666666666666667d0 + x36**0.666666666666667d0
      x242 = x241**3
      x243 = x241**2
      x244 = 1d0/x243
      x245 = x219*x244
      x246 = x245*x3
      x247 = 1d0/x241
      x248 = mu*x247
      x249 = 11.1447260721495d0*x13*x248 + 1.0d0
      x250 = mu**3
      x251 = 1d0/x242
      x252 = 27.1408204624105d0*x11*x250*x251 + 27.0733719592201d0*x246 
     &+ x249
      x253 = x252/(12.5327170711751d0*x246 + x249)
      x254 = log(x253)
      x255 = x242*x254
      x256 = 0.179587122125167d0
      x257 = 0.175432441092201d0*x227*x256
      x258 = -4.49737346725955d0*x3 + 0.825481812223657d0*x9
      x259 = exp(-0.28165369188898165d0*x3)
      x260 = x228*x258*x259
      x261 = 12.0d0*x222
      x262 = x260*x261
      x263 = 2.28942848510666d0
      x264 = x168*x263
      x265 = 0.817704266774463d0*x264
      x266 = x34**2
      x267 = 1d0/x34
      x268 = x267**0.666666666666667d0
      x269 = 0.0524148278841779d0*x9
      x270 = x267**0.333333333333333d0
      x271 = x270*x3
      x272 = x268*x269 + 0.494402081358784d0*x271 + 1.0d0
      x273 = 1d0/x272
      x274 = x266*x273
      x275 = 1d0/x268
      x276 = 0.0259335011650457d0*x271
      x277 = x275*(-x276 + 1.0d0)
      x278 = x274*x277
      x279 = x265*x278
      x280 = x36**2
      x281 = 1d0/x36
      x282 = x281**0.666666666666667d0
      x283 = x281**0.333333333333333d0
      x284 = x283*x3
      x285 = x269*x282 + 0.494402081358784d0*x284 + 1.0d0
      x286 = 1d0/x285
      x287 = x280*x286
      x288 = 0.0259335011650457d0*x284
      x289 = -x288 + 1.0d0
      x290 = 1d0/x282
      x291 = x265*x290
      x292 = x289*x291
      x293 = x287*x292
      x294 = x234*(x226*x262 + x279*x7 + x293*x7)
      x295 = 0.00111534778586481d0*x239
      x296 = x294*x295
      x297 = 4.0d0*x235*x250
      x298 = 0.0472353356922751d0*mu**8
      x299 = x298*x84
      x300 = rho_c**(-2.66666666666667d0)
      x301 = 0.267683468607554d0*x300
      x302 = 0.148394183600699d0
      x303 = x232 - 1.0d0
      x304 = x222*x303
      x305 = x302*x304
      x306 = -0.0167302167879722d0*x239*x305
      x307 = rho_c**(-2.0d0)
      x308 = 0.101321183642338d0
      x309 = 0.526297323276602d0*x308
      x310 = x307*x309
      x311 = 4.0d0*mu**6
      x312 = 0.13157433081915d0*x304
      x313 = x227*x229
      x314 = -x312*x313
      x315 = x264*(x34**2.66666666666667d0 + x36**2.66666666666667d0)
      x316 = 0.817704266774463d0*x315
      x317 = -0.352521395009435d0*x3 + 0.558025705063192d0*x9
      x318 = exp(-0.49698248213959023d0*x3)
      x319 = x317*x318*x5
      x320 = x222*x319
      x321 = 10.9027235569928d0*x320
      x322 = 0.00139418473233101d0*x302
      x323 = rho_c**(-1.0d0)*x322
      x324 = 1.55214407110551d0*x225
      x325 = 4.0d0*mu**4
      x326 = -x238*x240 - x255*x31 - x297*(x233*x257 + x296) + x299*x301
     & + x311*(x306 + x310*x84) + x325*(x314 - x323*(x279 + x293 - x316 
     &+ x321) + x324*x84)
      x327 = x221*x326
      x328 = 0.25d0*x327
      x329 = -x328 + x84
      x330 = x218*x329
      x331 = x330**2.78d0
      x332 = x331*x73
      x333 = x163 - 1.0d0
      x334 = x232*x333
      x335 = x237*x240
      x336 = x30*(x16 - 1.0d0)
      x337 = x298*x301
      x338 = -x279 - x293 + x316 - x321
      x339 = x255*x336 + x297*(x257*x334 - x296) + x311*(x306 + x310*x56
     &) + x325*( x314 + x323*x338 + x324*x56) + x334*x335 + x337*x56
      x340 = x221*x339
      x341 = 0.25d0*x340
      x342 = -x341 + x56
      x343 = exp(-x342*x60)
      x344 = x343 - 1.0d0
      x345 = 1d0/x344
      x346 = x345*x77
      x347 = x332*x346 + 1.0d0
      x348 = x330**5.56d0
      x349 = x348/x344**2
      x350 = 1d0/(x347 + x349*x69)
      x351 = x332*x347*x350*x77 + 1.0d0
      x352 = log(x351)
      x353 = 0.125d0*x352*x80
      x354 = x188 + x83
      x355 = x328 + x354
      x356 = -x353 + x355
      x357 = x17/x70
      x358 = 0.0784052941866196d0*x357
      x359 = 0.546136299139192d0*x6
      x360 = 2.06136809303918d0*x10
      x361 = 2.517666232305d0*x12
      x362 = (x359*x90 + x360*x92 + x361*x94 + 2.36486515369093d0*x88)/(
     &x96**2*x97)
      x363 = x85**(-3.33333333333333d0)
      x364 = 0.0462645310310461d0*x363
      x365 = x364*x70
      x366 = 0.00771075517184102d0*x85**(-3.33333333333333d0)
      x367 = x366*x70
      x368 = x109*(x19*x362*(0.470431765119717d0*x88 + 2.0d0) - 0.156810
     &588373239d0* x88*x98)
      x369 = x112*x363*x368
      x370 = x18*x64
      x371 = x106*x370
      x372 = x85**(-5.66666666666667d0)
      x373 = 0.00214040683152263d0*x370
      x374 = x106*x111
      x375 = 0.000356734471920438d0*x370
      x376 = x113*x119
      x377 = x118/x120
      x378 = 0.5d0*x30
      x379 = 0.5d0*x85
      x380 = 0.25d0*x31
      x381 = 0.5d0*x31
      x382 = x121*x380 + x379*(x106*x377*x378*(-x101*x112*x371*(x364 + x
     &366 + x369) - x114*x365 - x114*x367 + x376*(0.00107020341576131d0*
     &x115*x368* x371*x372 + x365 + x367 + x369*x70 + x372*x373*x374 + x
     &374*x375* x85**(-5.66666666666667d0))) + x358*x86*x87*x98 - 1.0d0*
     &x362*x86* x89) - x381*x99
      x383 = x125*x126*x134*x358
      x384 = (2.36486515369093d0*x127 + x129*x359 + x130*x360 + x131*x36
     &1)/(x132**2* x133)
      x385 = 1.0d0*x125*x128*x384
      x386 = x124**(-3.33333333333333d0)
      x387 = 0.0462645310310461d0*x386
      x388 = x387*x70
      x389 = x145*x388
      x390 = 0.00771075517184102d0*x124**(-3.33333333333333d0)
      x391 = x390*x70
      x392 = x145*x391
      x393 = 0.156810588373239d0*x127*x134
      x394 = x19*x384*(0.470431765119717d0*x127 + 2.0d0)
      x395 = x140*(-x393 + x394)
      x396 = x143*x386
      x397 = x395*x396
      x398 = x387 + x390
      x399 = x138*x370
      x400 = x137*x143*x399
      x401 = x124**(-5.66666666666667d0)
      x402 = x138*x142
      x403 = x373*x401*x402
      x404 = x124**(-5.66666666666667d0)*x375*x402
      x405 = 0.00107020341576131d0*x146*x399*x401
      x406 = x144*x149
      x407 = x148/x150
      x408 = x138*x378*x407
      x409 = 0.5d0*x124
      x410 = x151*x380
      x411 = x135*x381
      x412 = x409*(x383 - x385 + x408*(-x389 - x392 - x400*(x397 + x398)
     & + x406*(x388 + x391 + x395*x405 + x397*x70 + x403 + x404))) + x41
     &0 - x411
      x413 = x178*(x382 + x412)
      x414 = x155*x176
      x415 = x39*x414
      x416 = x183*x415
      x417 = 2.0d0*x163 + 13.56d0*x41 + 1.74d0
      x418 = x156*x162*x417
      x419 = 0.480749856769136d0*x171
      x420 = rho_c**(-5.66666666666667d0)
      x421 = x167*x420
      x422 = x34**(-2.33333333333333d0)
      x423 = x36**(-2.33333333333333d0)
      x424 = rho_c**(-6.66666666666667d0)
      x425 = rho_s*x424
      x426 = x169/x173
      x427 = x164*x426
      x428 = x427*(-0.320499904512757d0*x167*x425*(x422 - x423) + 1.1217
     &4966579465d0* x170*x421 - x419*(gamma_ss*rho_c - x166))
      x429 = -x418 + x428
      x430 = x155*x156
      x431 = x174*x430
      x432 = x429*x431
      x433 = x183*x432
      x434 = 0.125d0*gamma_cc
      x435 = rho_c**(-3.33333333333333d0)
      x436 = 0.0269876431014436d0*x435
      x437 = x34**(-0.333333333333333d0)
      x438 = x36**(-0.333333333333333d0)
      x439 = x437 - x438
      x440 = 1d0/x57
      x441 = rho_c**(-4.33333333333333d0)*rho_s
      x442 = x440*x441
      x443 = 0.015421510343682d0*x439*x442
      x444 = x436*x70
      x445 = x443*x70
      x446 = x192*x71
      x447 = 13.2006183429726d0*x18
      x448 = x447*x59
      x449 = 1.0d0*x438
      x450 = x437 - x449
      x451 = rho_s*x161
      x452 = 2.0d0*x451
      x453 = x440*x452
      x454 = x450*x453
      x455 = x1*x224
      x456 = x455*x50
      x457 = 0.000665486074881265d0*x456
      x458 = x41 - 1.0d0
      x459 = x38*x458
      x460 = x239*x6
      x461 = rho_c**(-1.5d0)*x10
      x462 = rho_c**(-1.16666666666667d0)*x12
      x463 = x47*(1.09726826998169d0*x455 + 0.273350047299742d0*x460 + 0
     &.381163760967645d0*x461 + 1.64535495376155d0*x462)/(x48**2*x49)
      x464 = 0.58482233974552d0*x463
      x465 = x36**0.333333333333333d0
      x466 = x34**0.333333333333333d0
      x467 = x465 - x466
      x468 = x458*x51
      x469 = x451*x467*x468
      x470 = x4*(1.87699471636596d0*x455 + 0.344044309698576d0*x460 + 1.
     &45760735710959d0*x461 + 2.24298561906574d0*x462)/(x14**2*x20)
      x471 = x224*x357
      x472 = 0.062230323235858d0*x21*x471
      x473 = x23*(1.08651697314076d0*x455 + 0.27127533634502d0*x460 + 0.
     &709361408239834d0*x461 + 1.20668365571947d0*x462)/(x24**2*(x25 + 2
     &.0d0))
      x474 = 2.0d0*x473
      x475 = x26*x471
      x476 = 0.129439556896076d0*x475
      x477 = x474 - x476
      x478 = x42*(-x470 + x472 + x477)
      x479 = x40/rho_c**5
      x480 = x38*x51
      x481 = 0.0790071588102608d0*x480
      x482 = x479*x481
      x483 = x29*x31
      x484 = x38*x479
      x485 = x483*x484
      x486 = 4.0d0*x485
      x487 = 2.56488140124205d0*x483
      x488 = rho_s**5*x157*x467
      x489 = x487*x488
      x490 = x477 - x478 - x482 + x486 - x489
      x491 = x190*(x189*x454 - x457*x459 + x459*x464 + 0.050660998049353
     &7d0*x469 + x490)
      x492 = x446*x448*x491
      x493 = 0.0115661327577615d0*x77
      x494 = x446*x493
      x495 = x192*x420
      x496 = x370*x76
      x497 = x495*x496
      x498 = gamma_cc*rho_s
      x499 = x370*x59
      x500 = x424*x498*x499
      x501 = 2062.20808228389d0
      x502 = 0.00214040683152263d0*gamma_cc*x194*x501
      x503 = x65*x67/x57**5
      x504 = x196*x494
      x505 = 1.46459188756152d0
      x506 = x195*x505/x197
      x507 = x506*x57*(-x193*x436 + x193*x443 + x494*(-x444 + x445 - x49
     &2) + x504*( -0.000356734471920438d0*x192*x439*x500 + x444 - x445 +
     & x491*x502* x503 + x492 + 0.000624285325860766d0*x497))
      x508 = 0.25d0*x198
      x509 = -1.0d0*x437 + x438
      x510 = x31*x74
      x511 = x451*x509*x510
      x512 = x38*x46
      x513 = x457*x512
      x514 = x464*x512
      x515 = x467*x52
      x516 = 0.0506609980493537d0*x515
      x517 = x451*x516
      x518 = -x474 + x476
      x519 = x482 - x513 + x514 + x517 + x518
      x520 = x478 - x486 + x489 + x519
      x521 = x434*x507 + x508*x511 + x520
      x522 = 2.0d0*x32
      x523 = x174*x185
      x524 = x200*x523
      x525 = x187*x521 + x524*(-x164*x522 + x429)
      x526 = 3.0d0*x32
      x527 = 0.04375d0*x186 + 2.8d0
      x528 = 64.0d0*x521*x527 + 64.0d0*x524*(-x32*(0.19775d0*x158 + 0.07
     &6125d0*x163 + 0.04375d0*x41 + 0.046375d0) - 0.04375d0*x418 + 0.043
     &75d0*x428)
      x529 = 1395.62545290939d0*x456
      x530 = 262144.0d0*gamma_cc
      x531 = 5378946.16037756d0*x488
      x532 = 1226461.339442d0*x463
      x533 = x479*x480
      x534 = -4194304.0d0*x473 + 271454.42562372d0*x475 + 165690.0211132
     &56d0*x533
      x535 = 524288.0d0*x198*x511 + x459*x529 - x459*x532 - 106243.81338
     &1198d0*x469 + 2097152.0d0*x478 + x483*x531 - 8388608.0d0*x485 + x5
     &07*x530 + x534
      x536 = 0.33512461593614d0*x214*x215*x224
      x537 = rho_c**(-4.66666666666667d0)
      x538 = x162*x232
      x539 = 0.17845564573837d0*x237
      x540 = -x537*x538*x539
      x541 = rho_c**(-2.33333333333333d0)
      x542 = x169*x541
      x543 = 0.00168899541983155d0*x542
      x544 = x230*x307
      x545 = 0.045088146776381d0*x460
      x546 = 0.00627239743302441d0*x455
      x547 = x222*x223
      x548 = x547*(x543 - x544 + x545 + x546)
      x549 = rho_c**(-3.0d0)
      x550 = 0.00116228665296198d0*x236*x549
      x551 = 0.148713038115308d0*x300
      x552 = x34**(-0.333333333333333d0)
      x553 = x36**(-0.333333333333333d0)
      x554 = x552 - x553
      x555 = x243*x31
      x556 = x254*x452
      x557 = rho_c**(-3.66666666666667d0)
      x558 = 0.713822582953479d0*x557
      x559 = 1.85745434535825d0*x462
      x560 = x248*x455
      x561 = x245*x461
      x562 = rho_s*x554
      x563 = 7.42981738143299d0*rho_c**(-2.16666666666667d0)*x12*x247*x5
     &62
      x564 = rho_s*x71
      x565 = mu*x1*x244*x554*x564
      x566 = mu/x252
      x567 = x566*(54.281640924821d0*rho_c**(-2.5d0)*x10*x219*x251*x562 
     &+ x253*(x559 + 4.17757235705837d0*x560 - x563 - 16.7102894282335d0
     &*x565) - x559 - 9.02445731974005d0*x560 - 13.5704102312052d0*x561 
     &+ x563 + 36.0978292789602d0*x565)
      x568 = x42*(x470 - x472 + x518)
      x569 = x31*x82
      x570 = x484*x569
      x571 = x488*x569
      x572 = 24.0d0*x260
      x573 = x162*x307*x572
      x574 = 2.41662179562687d0*rho_c**(-0.333333333333333d0)*x222*x258*
     &x259
      x575 = x226*x228*x259*x261*(1.49912448908652d0*x455 - 0.5503212081
     &49104d0*x460)
      x576 = 1d0/x270
      x577 = x267*x564
      x578 = 0.00706864485168613d0*x228*x263
      x579 = x578*x7
      x580 = x274*x576*x579*(x224 - x577)
      x581 = x273*x34
      x582 = rho_c**(-1.33333333333333d0)*rho_s
      x583 = x264*x582
      x584 = 2.18054471139857d0*x583
      x585 = x277*x581*x584
      x586 = rho_c**(-0.333333333333333d0)
      x587 = x264*x586
      x588 = 0.545136177849642d0*x587
      x589 = x278*x588
      x590 = 1d0/x283
      x591 = x281*x564
      x592 = x287*x579*x590*(x224 + x591)
      x593 = x286*x36
      x594 = x289*x290
      x595 = x584*x593*x594
      x596 = x287*x588*x594
      x597 = 0.034943218589452d0*rho_s*x300*x6
      x598 = 0.164800693786261d0*x1
      x599 = 0.034943218589452d0*x460
      x600 = 0.164800693786261d0*x455
      x601 = x268*x599 + x270*x600
      x602 = x265*x7/x272**2
      x603 = x277*x602
      x604 = x266*x603*(-x267*x268*x597 - x270*x577*x598 + x601)
      x605 = x282*x599 + x283*x600
      x606 = x7/x285**2
      x607 = x292*x606
      x608 = x280*x607*(x281*x282*x597 + x283*x591*x598 + x605)
      x609 = x234*x295
      x610 = 0.175432441092201d0*x256*x307
      x611 = 0.00490180588786583d0*x541
      x612 = rho_c**(-4.0d0)
      x613 = 0.350864882184401d0*x256
      x614 = 0.00185891297644135d0*x294*x300 - x538*x612*x613
      x615 = x162*x303
      x616 = 0.0334604335759443d0*x302
      x617 = x537*x615*x616
      x618 = 0.0278836946466203d0*x300*x305
      x619 = x229*x307
      x620 = x547*(0.113935126864452d0*x231*x455 - 0.0031361987165122d0*
     &x455 - 0.0225440733881905d0*x460 - 0.000844497709915773d0*x542 + 0
     &.0047892375d0*x619)
      x621 = x239*x616*x620
      x622 = 1.0525946465532d0*x308*x549*x56
      x623 = x310*x520
      x624 = 0.263148661638301d0*x229
      x625 = x612*x615*x624
      x626 = x312*x619
      x627 = 0.263148661638301d0*x313*x620
      x628 = 0.00232364122055169d0*x302*x307*x338
      x629 = 2.06952542814068d0*x542*x56
      x630 = x222*x318
      x631 = 21.8054471139857d0*x319
      x632 = x36**1.66666666666667d0
      x633 = x34**1.66666666666667d0
      x634 = x632 - x633
      x635 = -x580 + x585 - x589 - x592 - x595 - x596 - x604 - x608
      x636 = x239*x322
      x637 = x636*(-1.80615420514536d0*x0*x317*x630*x8 - x162*x631*x71 +
     & 0.545136177849642d0*x315*x586 - 7.26848237132856d0*x320*x586 - 10
     &.9027235569928d0*x5*x630*x7*(0.117507131669812d0*x455 - 0.37201713
     &6708795d0*x460) + 2.18054471139857d0*x583*x634 + x635)
      x638 = x324*x520
      x639 = x221*(-x233*x550 + x238*x551 + x297*(x233*x610 - x233*x611 
     &+ x257*x548 - x609*(x262 + x573 + x574 + x575 + x580 - x585 + x589
     & + x592 + x595 + x596 + x604 + x608) + x614) - x299*x558 - x311*(x
     &617 - x618 + x621 + x622 - x623) - x325*(x625 - x626 + x627 + x628
     & + x629 - x637 - x638) + x335*x548 + x337*(x519 - x568 + 4.0d0*x57
     &0 - 2.56488140124205d0*x571) + x540 + x554*x555*x556 - x555*x567)
      x640 = x219*x460/x220**5
      x641 = x326*x640
      x642 = x451*x515
      x643 = -x437
      x644 = x438 + x643
      x645 = 0.015421510343682d0*x644
      x646 = 8.0d0*x210
      x647 = 0.0790071588102608d0*x53
      x648 = -x646 + x647
      x649 = -x327 + x648 - 4.0d0*x83
      x650 = 1d0/x649
      x651 = x218*x649
      x652 = 4.0d0*x568
      x653 = 1.35631049481572d0*x641
      x654 = 16.0d0*x570
      x655 = 10.2595256049682d0*x571
      x656 = 8.0d0*x473
      x657 = 0.517758227584304d0*x475
      x658 = 0.316028635241043d0*x533
      x659 = 0.00266194429952506d0*x456
      x660 = x512*x659
      x661 = 2.33928935898208d0*x463
      x662 = x512*x661
      x663 = 0.202643992197415d0*x642
      x664 = -x656 + x657 + x658 - x660 + x662 + x663
      x665 = x650*(-x520*x651 - x639 - x652 - x653 + x654 - x655 + x664)
     &
      x666 = x347*x71
      x667 = 0.032153849066577d0*x666
      x668 = 1d0/x56
      x669 = x342*x668
      x670 = x669**2.78d0
      x671 = x435*x70
      x672 = 0.107950572405774d0*x671
      x673 = 0.0616860413747281d0*x440
      x674 = x441*x70
      x675 = x223*x333*(-x543 + x544 - x545 - x546)
      x676 = -x552 + x553
      x677 = x243*x336
      x678 = x221*(-x237*x334*x551 + x297*(x257*x675 - x334*x610 + x334*
     &x611 + x609*( -x262 - x573 - x574 - x575 + x635) + x614) - x298*x5
     &58*x56 + x311 *(-x617 + x618 - x621 - x622 + x623) + x325*(-x625 +
     & x626 - x627 - x628 - x629 + x637 + x638) + x334*x550 + x335*x675 
     &+ x337*x520 + x540 + x556*x676*x677 + x567*x677)
      x679 = 4.0d0*x44
      x680 = -x340 + x648 + x679
      x681 = x668*x680
      x682 = 4.0d0*x478
      x683 = 1.35631049481572d0*x339*x640
      x684 = 16.0d0*x485
      x685 = 10.2595256049682d0*x483
      x686 = x488*x685
      x687 = 1d0/x680
      x688 = 0.128615396266308d0*x72
      x689 = x687*x688
      x690 = x340 + x646 - x647 - x679
      x691 = x656 - x657 - x658
      x692 = exp(x60*(x189 + x341))
      x693 = x692 - 1.0d0
      x694 = 1d0/x693
      x695 = x694*x71
      x696 = x448*x692*x695
      x697 = 0.00289153318944038d0*x77
      x698 = x644*x673
      x699 = x345*x348
      x700 = 0.00142693788768175d0*x644
      x701 = x449 + x643
      x702 = x453*x680*x701 + x639 + x652 + x653 - x654 + x655 + x660 - 
     &x662 - x663 + x691
      x703 = x343*x345*x448*x71
      x704 = 0.00214040683152263d0*gamma_cc*x501*x503
      x705 = x496*x65
      x706 = 0.00297516549581645d0*x705
      x707 = 0.00289153318944038d0*x346
      x708 = x350*x666
      x709 = gamma_cc*x350*x505*x57/x351
      x710 = 262144.0d0*x331*x709*(-x347*x436 - x347*x442*x645 + x665*x6
     &67 - x670* x695*x697*(-x439*x673*x674 + x672 - x689*(x664 - x678 +
     & x681*( x490 + x513 - x514 - x517) + x682 - x683 - x684 + x686) + 
     &x696*( x454*x690 - x459*x659 + x459*x661 + 0.202643992197415d0*x46
     &9 + x678 - x682 + x683 + x684 - x686 + x691)) + x707*x708*(-x331*x
     &665 *x688 + x331*x672 + x331*x674*x698 + x331*x702*x703 + x343*x34
     &9* x702*x704 + 0.00249714130344307d0*x420*x496*x699 + x500*x699*x7
     &00 - x665*x699*x706)) + 524288.0d0*x352*x511 - x512*x529 + x512*x5
     &32 - x531*x569 + x534 - 2097152.0d0*x568 + 8388608.0d0*x570 - 5242
     &88.0d0*x639 - 711097.316705946d0*x641 + 106243.813381198d0* x642
      x711 = 4.76837158203125d-7*rho_c
      x712 = x329 + x353
      x713 = -x204
      x714 = x208*(x203 + x713)
      x715 = -x714 + 32768.0d0
      x716 = x140*(x393 - x394)
      x717 = x396*x716
      x718 = x409*(-x383 + x385 + x408*(x389 + x392 + x400*(x398 - x717)
     & + x406*( -x388 - x391 - x403 - x404 + x405*x716 + x70*x717))) - x
     &410 + x411
      x719 = x178*(x382 + x718)
      x720 = x417*x451 - x427*(x419*(-gamma_cs*rho_c + x498) + 0.3204999
     &04512757d0* x421*(-x422 + x423))
      x721 = x431*x720
      x722 = x183*x721
      x723 = rho_s**3
      x724 = x481*x723
      x725 = x39*x724
      x726 = -x465 + x466
      x727 = 0.0506609980493537d0*x726
      x728 = x52*x727
      x729 = x487*x726
      x730 = x39*x723
      x731 = 4.0d0*x38
      x732 = x483*x731
      x733 = x32*x510
      x734 = x450*x733
      x735 = x435*x645
      x736 = x645*x70
      x737 = x440*x509
      x738 = 2.0d0*x737
      x739 = x156*x724
      x740 = x156*x723
      x741 = x732*x740
      x742 = x41*x729
      x743 = x739 - x741 - x742
      x744 = x190*(x189*x738 + x468*x727 + x743)
      x745 = x447*x75
      x746 = x192*x744*x745
      x747 = x645*x671
      x748 = 0.000356734471920438d0*x497*x644
      x749 = x435*x746
      x750 = x420*x502*x68*x744
      x751 = x506*(x193*x735 + x493*x495*(x736 - x746) + x504*(-x747 - x
     &748 + x749 + x750))
      x752 = x32*x728 + x434*x751 + x479*x729 + x508*x734 - x725 + x730*
     &x732
      x753 = x524*x720
      x754 = -x187*x752 - x753
      x755 = -x527*x752 - 0.04375d0*x753
      x756 = -x201
      x757 = x184 + x756
      x758 = 64.0d0*x757
      x759 = x480*x730
      x760 = x32*x515
      x761 = x61 - 1.0d0
      x762 = 1d0/x761
      x763 = x762*x78 + 1.0d0
      x764 = x467*x569
      x765 = 2.56488140124205d0*x764
      x766 = x41*x765
      x767 = x569*x731
      x768 = x740*x767
      x769 = 1d0/(x69/x761**2 + x763)
      x770 = x73*x763
      x771 = x769*x77*x770
      x772 = x771 + 1.0d0
      x773 = x769/x772
      x774 = x38*x730
      x775 = x569*x774
      x776 = log(x772)
      x777 = x701*x733
      x778 = x479*x764
      x779 = -x505*x530*x773*(x420*x493*x762*(-x61*x745*x762*(x516 - x56
     &*x738 + x739 - x766 + x768) + x736) - x494*x763*x769*(x747 + x748 
     &- x749 - x750) + x735*x763) + 165690.021113256d0*x759 + 106243.813
     &381198d0 *x760 + 8388608.0d0*x775 + 524288.0d0*x776*x777 - 5378946
     &.16037756d0*x778
      x780 = rho_s*x232
      x781 = x539*x557*x780
      x782 = x254*x522*x554
      x783 = 7.42981738143299d0*x462
      x784 = 36.0978292789602d0*x560 + 54.281640924821d0*x561 + x783
      x785 = x253*(16.7102894282335d0*x560 + x783)
      x786 = x241*x566
      x787 = -x739
      x788 = -x516 + x766 - x768 + x787
      x789 = 0.267683468607554d0*x298*x557
      x790 = rho_s*x303
      x791 = x557*x616*x790
      x792 = x309*x549
      x793 = x549*x613*x780
      x794 = x578*x8
      x795 = -x576*x581*x794 + x590*x593*x794
      x796 = rho_s*x227*x572 + x795
      x797 = x275*(x276 - 1.0d0)
      x798 = 2.18054471139857d0*x587
      x799 = x581*x798
      x800 = x288 - 1.0d0
      x801 = x593*x798
      x802 = x34*x601
      x803 = x36*x605
      x804 = -x290*x800*x801 - x291*x606*x800*x803 + x602*x797*x802 + x7
     &97*x799
      x805 = x549*x624*x790
      x806 = 1.55214407110551d0*x542
      x807 = 2.18054471139857d0*x587
      x808 = x582*x631 + x795
      x809 = x221*(x297*(x609*(x796 + x804) + x793) + x31*x786*(x554*x78
     &4 + x676*x785 ) + x311*(x788*x792 + x791) + x325*(x636*(-x634*x807
     & + x804 + x808) + x788*x806 + x805) - x555*x782 + x781 + x788*x789
     &)
      x810 = 0.316028635241043d0*x759
      x811 = -x810
      x812 = 0.202643992197415d0*x760
      x813 = 10.2595256049682d0*x778
      x814 = 16.0d0*x775
      x815 = x728 + x741 + x742 + x787
      x816 = x650*(-x32*x651*x815 - x809 + x811 - x812 + x813 - x814)
      x817 = x671*x698
      x818 = x522*x737
      x819 = x669**5.56d0
      x820 = x694*x819
      x821 = 0.202643992197415d0*x32*x726
      x822 = x479*x726
      x823 = x685*x822
      x824 = x483*x774
      x825 = 16.0d0*x824
      x826 = -x277*x799 + x594*x801 - x603*x802 + x607*x803
      x827 = x221*(x297*(x609*(x796 + x826) + x793) + x311*(x791 + x792*
     &x815) + x325* (x636*(x807*(-x632 + x633) + x808 + x826) + x805 + x
     &806*x815) + x336*x676*x786*(x784 - x785) + x677*x782 + x781 + x789
     &*x815)
      x828 = x32*x681*(-x728 + x743) + x52*x821 + x811 + x823 + x825 - x
     &827
      x829 = x468*x821 + x690*x818 + x810 - x823 - x825 + x827
      x830 = x32*x516 + 0.25d0*x352*x777 - x479*x765 - 0.125d0*x709*(x33
     &1*x347*x440* x735 + x331*x667*x816 - x331*x694*x697*x708*(gamma_cc
     &*x420*x499* x700*x820 + x670*x689*x828 - x670*x696*x829 + x670*x81
     &7 + x687* x706*x820*x828 - x692*x704*x819*x829/x693**2) + x348*x70
     &7*x71*( x688*x816 - x703*(-x680*x818 + x809 + x810 + x812 - x813 +
     & x814) + x817)) + x725 + x730*x767 + 0.25d0*x809
      x831 = x30*x57
      x832 = x496*x66
      x833 = 0.000267550853940328d0*x705
      x834 = x773*(-x192*x771*(x192*x833 + x73) + x762*x832 + x770)
      x835 = x831*x834
      x836 = 262144.0d0*x835
      x837 = x116*x18
      x838 = x374*x837
      x839 = 0.00578306637888076d0*x70
      x840 = x101*x839
      x841 = 0.25d0*gamma_cs
      x842 = 0.125d0*gamma_ss + x434
      x843 = x377*x85
      x844 = x843*(x114*x840 - x376*(0.000535101707880657d0*x111*x837*(x
     &841 + x842) + x840) + 0.000133775426970164d0*x838)
      x845 = x147*x18
      x846 = x402*x845
      x847 = x137*x839
      x848 = 0.000535101707880657d0*x142*x845
      x849 = x124*x407
      x850 = x849*(x145*x847 - x406*(x847 + x848*(-x841 + x842)) + 0.000
     &133775426970164d0*x846)
      x851 = x844 + x850
      x852 = x178*x30
      x853 = x851*x852
      x854 = x177*x30
      x855 = gamma_cc*x154
      x856 = x85*(x100 - x122)
      x857 = x124*(x136 - x152)
      x858 = x856 + x857
      x859 = x181*x858
      x860 = x854*x855*x859
      x861 = 0.022020833726518d0*x859
      x862 = 0.240374928384568d0*x861
      x863 = x164/x173**5
      x864 = x155*x162*x863
      x865 = rho_c**(-7.66666666666667d0)*x864
      x866 = 0.120187464192284d0*x170
      x867 = x165*x424*x426
      x868 = x776*x81 + x84
      x869 = x175*x855*x868
      x870 = 0.125d0*x835
      x871 = x187*x870 - 2.0d0*x869*(-x161 + x866*x867)
      x872 = 0.13125d0*x201
      x873 = 0.0105164031168249d0*x170
      x874 = x861*x873
      x875 = 0.0875d0*x161
      x876 = x527*x870 - x869*(x867*x873 - x875)
      x877 = x207*x63
      x878 = 0.000244140625d0*x215
      x879 = x355/x354
      x880 = x879**5.56d0
      x881 = -x343 + 1.0d0
      x882 = 1d0/x881
      x883 = x73*x879**2.78d0
      x884 = -x77*x882*x883 + 1.0d0
      x885 = 1d0/(x69*x880/x881**2 + x884)
      x886 = x883*x884
      x887 = x885*x886
      x888 = 64.0d0*x831*x885*(-x346*x887*(x332 + x699*x833) - x832*x880
     &*x882 + x886) /(x77*x887 + 1.0d0)
      x889 = 0.001953125d0*rho_c
      x890 = x420*x863
      x891 = x776*x80
      x892 = -5.6d0*x210 + 0.0553050111671826d0*x53
      x893 = -2.8d0*x83 + 0.35d0*x891 + x892
      x894 = x172*x863
      x895 = 0.00375585825600888d0*x893*x894
      x896 = x851*x854
      x897 = x187*x868
      x898 = 64.0d0*x208
      x899 = x898*(x178*x182*x858 + x897)
      x900 = x714 - 32768.0d0
      x901 = x170*x890
      x902 = x868*x894
      x903 = rho_c*x155
      x904 = x216*x903
      x905 = x425*x863
      x906 = x861*x905
      x907 = 0.0210328062336497d0*x170
      x908 = x169*x901
      x909 = rho_s*x908
      x910 = -0.00751171651201775d0*x893*x909
      x911 = 0.0115661327577615d0*x70
      x912 = x101*x911
      x913 = x843*(x114*x912 - x376*(0.000535101707880657d0*x838 + x912)
     & + 0.000267550853940329d0*x838)
      x914 = x137*x911
      x915 = x849*(x145*x914 - x406*(-x848*(x102 - x103 - x104) + x914) 
     &+ 0.000267550853940329d0*x846)
      x916 = x854*(x913 - x915)
      x917 = 0.480749856769136d0*x170
      x918 = x868*x909
      x919 = x176*x32
      x920 = x183*x919
      x921 = x175*x200
      x922 = -4.2d0*x201
      x923 = x175*(0.35d0*x211 + 2.8d0*x44 + x892)
      x924 = gamma_cc*x32/tau_c
      x925 = 9.5367431640625d-7*x206*x215*x32*x63
      x926 = x124*x200 + x179*x31
      x927 = 0.5d0*x926
      x928 = x178*x927
      x929 = x201 - x928
      x930 = x178*x926
      x931 = 1.4d0*x930
      x932 = x204 - x931
      x933 = x208*x932 + 32768.0d0
      x934 = x212 - x929*x933
      x935 = x216*x934
      x936 = x409*x521
      x937 = 0.0625d0*x211
      x938 = x159*x38
      x939 = x483*x938
      x940 = 0.0098758948512826d0*x53
      x941 = 1.0d0*x210
      x942 = x940 - x941
      x943 = x937 + x939 + x942
      x944 = x178*(x382 + x936 + x943)
      x945 = x415*x926
      x946 = 1.4d0*x432
      x947 = x208*(x713 + x931)
      x948 = -x947 + 32768.0d0
      x949 = x178*(x382 + x409*x752 - x937 - x939 - x940 + x941)
      x950 = x756 + x928
      x951 = 0.021875d0*x721
      x952 = x124*x868 - x31*x856
      x953 = x177*x855
      x954 = x952*x953
      x955 = 0.0625d0*x57*x834
      x956 = x852*(x124*x955 + 0.25d0*x844)
      x957 = x169*x952
      x958 = x865*x957
      x959 = 0.00525820155841243d0*x170
      x960 = 64.0d0*x877
      x961 = x844*x854
      x962 = x901*x957
      x963 = -x897
      x964 = 0.5d0*x178
      x965 = x208*(x952*x964 + x963)
      x966 = x947 - 32768.0d0
      x967 = 0.00375585825600888d0*x902
      x968 = 3.0517578125d-5*x215*x903
      x969 = x854*x913
      x970 = x905*x957
      x971 = -0.00751171651201775d0*x918
      x972 = 0.00375585825600888d0*x170
      x973 = 1.4d0*x919
      x974 = x180*x31 + x200*x85
      x975 = 0.5d0*x974
      x976 = x178*x975
      x977 = x201 - x976
      x978 = x178*x974
      x979 = 1.4d0*x978
      x980 = x204 - x979
      x981 = x208*x980 + 32768.0d0
      x982 = x212 - x977*x981
      x983 = x216*x982
      x984 = x379*x521
      x985 = x178*(x412 + x943 + x984)
      x986 = x415*x974
      x987 = x208*(x713 + x979)
      x988 = -x987 + 32768.0d0
      x989 = x178*(x379*x752 + x718 + x943)
      x990 = x756 + x976
      x991 = -x31*x857 + x85*x868
      x992 = x953*x991
      x993 = x852*(x85*x955 + 0.25d0*x850)
      x994 = x169*x991
      x995 = x865*x994
      x996 = x850*x854
      x997 = x908*x991
      x998 = x208*(x963 + x964*x991)
      x999 = x987 - 32768.0d0
      x1000 = x854*x915
      x1001 = x905*x994
      x1002 = x176*x943
      x1003 = 2.0d0*x1002
      x1004 = x1003*x185
      x1005 = -x1004 + x201
      x1006 = 5.6d0*x1002
      x1007 = x1006*x185
      x1008 = -x1007 + x204
      x1009 = x1008*x208 + 32768.0d0
      x1010 = -x1005*x1009 + x212
      x1011 = x1010*x216
      x1012 = x178*(x199 - 2.0d0*x210 + 1.0d0*x44 + x54 + x936 + x984)
      x1013 = x1002*x430
      x1014 = x429*x523*x943
      x1015 = -x208*(x1007 + x713) + 32768.0d0
      x1016 = 0.0625d0*gamma_cc*x751 + 0.125d0*x198*x734 + 0.02533049902
     &46769d0*x32* x52*x726 + 1.28244070062102d0*x483*x822 - 0.039503579
     &4051304d0* x759 + 2.0d0*x824
      x1017 = x176*x185
      x1018 = x720*x943
      x1019 = x1004 + x756
      x1020 = -x569*x938 + 0.0625d0*x891 + x942
      x1021 = x1020*x161*x176*x855
      x1022 = x1020*x169*x424*x864
      x1023 = x1002*x185
      PBE_value = x81*log(x78*x79/(x79 + x69/x62**2) + 1.0d0) + x84
      PBE_beta_value = x123*x31
      PBE_alpha_value = x153*x31
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x217 + x356)
      d1E(1) = -x217 + x711*(-x213*x536 - x215*(-x202*x208*(-x205*x526 -
     & 2.8d0*x413 + 8.4d0*x416 - 2.8d0*x433 + x528) - x209*(-x413 + 3.0d
     &0*x416 - x433 + x525) + x535) + x710) + x712
      d1E(2) = -rho_c*(-x216*(x208*x758*(0.04375d0*x719 + 0.04375d0*x722
     & + x755) - x715 *(x719 + x722 + x754) + x779) + x830)
      d1E(3) = x889*(-x878*(-x715*(-x170*x862*x865 - 0.25d0*x853 + 2.0d0
     &*x860 + x871) + x758*x877*(gamma_cc*(-0.0109375d0*x853 + 0.0875d0*
     &x860 - x865* x874 + x876) - 0.13125d0*x184 + x872) + x836) + x888)
     &
      d1E(4) = x904*(-x899*(x874*x890 + x895 + 0.0109375d0*x896) + x900*
     &(x862*x901 + 0.25d0*x896 + 0.240374928384568d0*x902))
      d1E(5) = x904*(-x899*(-x906*x907 + x910 + 0.0109375d0*x916) + x900
     &*(-x906*x917 + 0.25d0*x916 - 0.480749856769136d0*x918))
      d1E(6) = -x925*(x715*(-x920 + x921) + x757*x924*(4.2d0*x184 - x185
     &*(-2.8d0*x920 + x923) + x922))
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x356 + x935)
      d1E(1) = x711*(-x215*(-x208*x929*(-x526*x932 + x528 - x926*x946 - 
     &2.8d0*x944 + 4.2d0*x945) + x535 - x933*(-x432*x927 + x525 - x944 +
     & 1.5d0*x945 )) - x536*x934 + x710) + x712 - x935
      d1E(2) = -rho_c*(-x216*(x779 + x898*x950*(x755 + x926*x951 + 0.043
     &75d0*x949) - x948*(x721*x927 + x754 + x949)) + x830)
      d1E(3) = x889*(-x878*(x836 - x948*(x866*x958 + x871 - 1.0d0*x954 -
     & x956) + x950* x960*(gamma_cc*(x876 - 0.04375d0*x954 - 0.04375d0*x
     &956 + x958* x959) + x872 - 0.065625d0*x930)) + x888)
      d1E(4) = x968*(x965*(x895 + 0.0109375d0*x961 - 0.00525820155841243
     &d0*x962) + x966 *(0.00390625d0*x961 - 0.00187792912800444d0*x962 +
     & x967))
      d1E(5) = x968*(x965*(x873*x970 + x910 + 0.0109375d0*x969) + x966*(
     &0.00390625d0* x969 + x970*x972 + x971))
      d1E(6) = -x925*(x924*x950*(-x185*(x923 - x926*x973) + x922 + 2.1d0
     &*x930) + x948*( -x919*x927 + x921))
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x356 + x983)
      d1E(1) = x711*(-x215*(-x208*x977*(-x526*x980 + x528 - x946*x974 - 
     &2.8d0*x985 + 4.2d0*x986) + x535 - x981*(-x432*x975 + x525 - x985 +
     & 1.5d0*x986 )) - x536*x982 + x710) + x712 - x983
      d1E(2) = -rho_c*(-x216*(x779 + x898*x990*(x755 + x951*x974 + 0.043
     &75d0*x989) - x988*(x721*x975 + x754 + x989)) + x830)
      d1E(3) = x889*(-x878*(x836 + x960*x990*(gamma_cc*(x876 + x959*x995
     & - 0.04375d0* x992 - 0.04375d0*x993) + x872 - 0.065625d0*x978) - x
     &988*(x866* x995 + x871 - 1.0d0*x992 - x993)) + x888)
      d1E(4) = x968*(x998*(x895 + 0.0109375d0*x996 - 0.00525820155841243
     &d0*x997) + x999 *(x967 + 0.00390625d0*x996 - 0.00187792912800444d0
     &*x997))
      d1E(5) = x968*(x998*(-0.0109375d0*x1000 + x1001*x873 + x910) + x99
     &9*( -0.00390625d0*x1000 + x1001*x972 + x971))
      d1E(6) = -x925*(x924*x990*(-x185*(x923 - x973*x974) + x922 + 2.1d0
     &*x978) + x988*( -x919*x975 + x921))
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x1011 + x356)
      d1E(1) = -x1011 + x711*(-x1010*x536 - x215*(-x1005*x208*(-x1008*x5
     &26 - 2.8d0* x1012 + 16.8d0*x1013 - 5.6d0*x1014 + x528) - x1009*(-x
     &1012 + 6.0d0*x1013 - 2.0d0*x1014 + x525) + x535) + x710) + x712
      d1E(2) = -rho_c*(-x216*(-x1015*(2.0d0*x1016*x1017 + 2.0d0*x1018*x5
     &23 + x754) + x1019*x898*(x1016*x414*x875 + x1018*x155*x174*x875 + 
     &x755) + x779 ) + x830)
      d1E(3) = x889*(-x878*(-x1015*(-x1017*x870 - 4.0d0*x1021 + x1022*x9
     &17 + x871) + x1019*x960*(gamma_cc*(-0.00546875d0*x1017*x835 - 0.17
     &5d0*x1021 + x1022*x907 + x876) - 0.2625d0*x1023 + x872) + x836) + 
     &x888)
      d1E(4) = 0
      d1E(5) = 0
      d1E(6) = -x925*(x1015*(-x1003 + x921) + x1019*x924*(8.4d0*x1023 - 
     &x185*(-x1006 + x923) + x922))
      end if
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_SPIN_TPSS_GWS_ERF(rho_c, rho_s, gamma_cc, g
     &amma_ss, gamma_cs, tau_c, mu, E, d1E, d2E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, gamma_ss, gamma_cs, 
     &tau_c, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549, x550, x551, x552, x553, x554, x555
     &, x556, x557, x558, x559, x560, x561, x562, x563, x564, x565, x566
     &, x567, x568, x569, x570, x571, x572, x573, x574, x575, x576, x577
     &, x578, x579, x580, x581, x582, x583, x584, x585, x586, x587, x588
     &, x589, x590, x591, x592, x593, x594, x595, x596, x597, x598, x599
     &, x600, x601, x602, x603, x604, x605, x606, x607, x608, x609, x610
     &, x611, x612, x613, x614, x615, x616, x617, x618, x619, x620, x621
     &, x622, x623, x624, x625, x626, x627, x628, x629, x630, x631, x632
     &, x633, x634, x635, x636, x637, x638, x639, x640, x641, x642, x643
     &, x644, x645, x646, x647, x648, x649, x650, x651, x652, x653, x654
     &, x655, x656, x657, x658, x659, x660, x661, x662, x663, x664, x665
     &, x666, x667, x668, x669, x670, x671, x672, x673, x674, x675, x676
     &, x677, x678, x679, x680, x681, x682, x683, x684, x685, x686, x687
     &, x688, x689, x690, x691, x692, x693, x694, x695, x696, x697, x698
     &, x699, x700, x701, x702, x703, x704, x705, x706, x707, x708, x709
     &, x710, x711, x712, x713, x714, x715, x716, x717, x718, x719, x720
     &, x721, x722, x723, x724, x725, x726, x727, x728, x729, x730, x731
     &, x732, x733, x734, x735, x736, x737, x738, x739, x740, x741, x742
     &, x743, x744, x745, x746, x747, x748, x749, x750, x751, x752, x753
     &, x754, x755, x756, x757, x758, x759, x760, x761, x762, x763, x764
     &, x765, x766, x767, x768, x769, x770, x771, x772, x773, x774, x775
     &, x776, x777, x778, x779, x780, x781, x782, x783, x784, x785, x786
     &, x787, x788, x789, x790, x791, x792, x793, x794, x795, x796, x797
     &, x798, x799, x800, x801, x802, x803, x804, x805, x806, x807, x808
     &, x809, x810, x811, x812, x813, x814, x815, x816, x817, x818, x819
     &, x820, x821, x822, x823, x824, x825, x826, x827, x828, x829, x830
     &, x831, x832, x833, x834, x835, x836, x837, x838, x839, x840, x841
     &, x842, x843, x844, x845, x846, x847, x848, x849, x850, x851, x852
     &, x853, x854, x855, x856, x857, x858, x859, x860, x861, x862, x863
     &, x864, x865, x866, x867, x868, x869, x870, x871, x872, x873, x874
     &, x875, x876, x877, x878, x879, x880, x881, x882, x883, x884, x885
     &, x886, x887, x888, x889, x890, x891, x892, x893, x894, x895, x896
     &, x897, x898, x899, x900, x901, x902, x903, x904, x905, x906, x907
     &, x908, x909, x910, x911, x912, x913, x914, x915, x916, x917, x918
     &, x919, x920, x921, x922, x923, x924, x925, x926, x927, x928, x929
     &, x930, x931, x932, x933, x934, x935, x936, x937, x938, x939, x940
     &, x941, x942, x943, x944, x945, x946, x947, x948, x949, x950, x951
     &, x952, x953, x954, x955, x956, x957, x958, x959, x960, x961, x962
     &, x963, x964, x965, x966, x967, x968, x969, x970, x971, x972, x973
     &, x974, x975, x976, x977, x978, x979, x980, x981, x982, x983, x984
     &, x985, x986, x987, x988, x989, x990, x991, x992, x993, x994, x995
     &, x996, x997, x998, x999, x1000, x1001, x1002, x1003, x1004, x1005
     &, x1006, x1007, x1008, x1009, x1010, x1011, x1012, x1013, x1014, x
     &1015, x1016, x1017, x1018, x1019, x1020, x1021, x1022, x1023, x102
     &4, x1025, x1026, x1027, x1028, x1029, x1030, x1031, x1032, x1033, 
     &x1034, x1035, x1036, x1037, x1038, x1039, x1040, x1041, x1042, x10
     &43, x1044, x1045, x1046, x1047, x1048, x1049, x1050, x1051, x1052,
     & x1053, x1054, x1055, x1056, x1057, x1058, x1059, x1060, x1061, x1
     &062, x1063, x1064, x1065, x1066, x1067, x1068, x1069, x1070, x1071
     &, x1072, x1073, x1074, x1075, x1076, x1077, x1078, x1079, x1080, x
     &1081, x1082, x1083, x1084, x1085, x1086, x1087, x1088, x1089, x109
     &0, x1091, x1092, x1093, x1094, x1095, x1096, x1097, x1098, x1099, 
     &x1100, x1101, x1102, x1103, x1104, x1105, x1106, x1107, x1108, x11
     &09, x1110, x1111, x1112, x1113, x1114, x1115, x1116, x1117, x1118,
     & x1119, x1120, x1121, x1122, x1123, x1124, x1125, x1126, x1127, x1
     &128, x1129, x1130, x1131, x1132, x1133, x1134, x1135, x1136, x1137
     &, x1138, x1139, x1140, x1141, x1142, x1143, x1144, x1145, x1146, x
     &1147, x1148, x1149, x1150, x1151, x1152, x1153, x1154, x1155, x115
     &6, x1157, x1158, x1159, x1160, x1161, x1162, x1163, x1164, x1165, 
     &x1166, x1167, x1168, x1169, x1170, x1171, x1172, x1173, x1174, x11
     &75, x1176, x1177, x1178, x1179, x1180, x1181, x1182, x1183, x1184,
     & x1185, x1186, x1187, x1188, x1189, x1190, x1191, x1192, x1193, x1
     &194, x1195, x1196, x1197, x1198, x1199, x1200, x1201, x1202, x1203
     &, x1204, x1205, x1206, x1207, x1208, x1209, x1210, x1211, x1212, x
     &1213, x1214, x1215, x1216, x1217, x1218, x1219, x1220, x1221, x122
     &2, x1223, x1224, x1225, x1226, x1227, x1228, x1229, x1230, x1231, 
     &x1232, x1233, x1234, x1235, x1236, x1237, x1238, x1239, x1240, x12
     &41, x1242, x1243, x1244, x1245, x1246, x1247, x1248, x1249, x1250,
     & x1251, x1252, x1253, x1254, x1255, x1256, x1257, x1258, x1259, x1
     &260, x1261, x1262, x1263, x1264, x1265, x1266, x1267, x1268, x1269
     &, x1270, x1271, x1272, x1273, x1274, x1275, x1276, x1277, x1278, x
     &1279, x1280, x1281, x1282, x1283, x1284, x1285, x1286, x1287, x128
     &8, x1289, x1290, x1291, x1292, x1293, x1294, x1295, x1296, x1297, 
     &x1298, x1299, x1300, x1301, x1302, x1303, x1304, x1305, x1306, x13
     &07, x1308, x1309, x1310, x1311, x1312, x1313, x1314, x1315, x1316,
     & x1317, x1318, x1319, x1320, x1321, x1322, x1323, x1324, x1325, x1
     &326, x1327, x1328, x1329, x1330, x1331, x1332, x1333, x1334, x1335
     &, x1336, x1337, x1338, x1339, x1340, x1341, x1342, x1343, x1344, x
     &1345, x1346, x1347, x1348, x1349, x1350, x1351, x1352, x1353, x135
     &4, x1355, x1356, x1357, x1358, x1359, x1360, x1361, x1362, x1363, 
     &x1364, x1365, x1366, x1367, x1368, x1369, x1370, x1371, x1372, x13
     &73, x1374, x1375, x1376, x1377, x1378, x1379, x1380, x1381, x1382,
     & x1383, x1384, x1385, x1386, x1387, x1388, x1389, x1390, x1391, x1
     &392, x1393, x1394, x1395, x1396, x1397, x1398, x1399, x1400, x1401
     &, x1402, x1403, x1404, x1405, x1406, x1407, x1408, x1409, x1410, x
     &1411, x1412, x1413, x1414, x1415, x1416, x1417, x1418, x1419, x142
     &0, x1421, x1422, x1423, x1424, x1425, x1426, x1427, x1428, x1429, 
     &x1430, x1431, x1432, x1433, x1434, x1435, x1436, x1437, x1438, x14
     &39, x1440, x1441, x1442, x1443, x1444, x1445, x1446, x1447, x1448,
     & x1449, x1450, x1451, x1452, x1453, x1454, x1455, x1456, x1457, x1
     &458, x1459, x1460, x1461, x1462, x1463, x1464, x1465, x1466, x1467
     &, x1468, x1469, x1470, x1471, x1472, x1473, x1474, x1475, x1476, x
     &1477, x1478, x1479, x1480, x1481, x1482, x1483, x1484, x1485, x148
     &6, x1487, x1488, x1489, x1490, x1491, x1492, x1493, x1494, x1495, 
     &x1496, x1497, x1498, x1499, x1500, x1501, x1502, x1503, x1504, x15
     &05, x1506, x1507, x1508, x1509, x1510, x1511, x1512, x1513, x1514,
     & x1515, x1516, x1517, x1518, x1519, x1520, x1521, x1522, x1523, x1
     &524, x1525, x1526, x1527, x1528, x1529, x1530, x1531, x1532, x1533
     &, x1534, x1535, x1536, x1537, x1538, x1539, x1540, x1541, x1542, x
     &1543, x1544, x1545, x1546, x1547, x1548, x1549, x1550, x1551, x155
     &2, x1553, x1554, x1555, x1556, x1557, x1558, x1559, x1560, x1561, 
     &x1562, x1563, x1564, x1565, x1566, x1567, x1568, x1569, x1570, x15
     &71, x1572, x1573, x1574, x1575, x1576, x1577, x1578, x1579, x1580,
     & x1581, x1582, x1583, x1584, x1585, x1586, x1587, x1588, x1589, x1
     &590, x1591, x1592, x1593, x1594, x1595, x1596, x1597, x1598, x1599
     &, x1600, x1601, x1602, x1603, x1604, x1605, x1606, x1607, x1608, x
     &1609, x1610, x1611, x1612, x1613, x1614, x1615, x1616, x1617, x161
     &8, x1619, x1620, x1621, x1622, x1623, x1624, x1625, x1626, x1627, 
     &x1628, x1629, x1630, x1631, x1632, x1633, x1634, x1635, x1636, x16
     &37, x1638, x1639, x1640, x1641, x1642, x1643, x1644, x1645, x1646,
     & x1647, x1648, x1649, x1650, x1651, x1652, x1653, x1654, x1655, x1
     &656, x1657, x1658, x1659, x1660, x1661, x1662, x1663, x1664, x1665
     &, x1666, x1667, x1668, x1669, x1670, x1671, x1672, x1673, x1674, x
     &1675, x1676, x1677, x1678, x1679, x1680, x1681, x1682, x1683, x168
     &4, x1685, x1686, x1687, x1688, x1689, x1690, x1691, x1692, x1693, 
     &x1694, x1695, x1696, x1697, x1698, x1699, x1700, x1701, x1702, x17
     &03, x1704, x1705, x1706, x1707, x1708, x1709, x1710, x1711, x1712,
     & x1713, x1714, x1715, x1716, x1717, x1718, x1719, x1720, x1721, x1
     &722, x1723, x1724, x1725, x1726, x1727, x1728, x1729, x1730, x1731
     &, x1732, x1733, x1734, x1735, x1736, x1737, x1738, x1739, x1740, x
     &1741, x1742, x1743, x1744, x1745, x1746, x1747, x1748, x1749, x175
     &0, x1751, x1752, x1753, x1754, x1755, x1756, x1757, x1758, x1759, 
     &x1760, x1761, x1762, x1763, x1764, x1765, x1766, x1767, x1768, x17
     &69, x1770, x1771, x1772, x1773, x1774, x1775, x1776, x1777, x1778,
     & x1779, x1780, x1781, x1782, x1783, x1784, x1785, x1786, x1787, x1
     &788, x1789, x1790, x1791, x1792, x1793, x1794, x1795, x1796, x1797
     &, x1798, x1799, x1800, x1801, x1802, x1803, x1804, x1805, x1806, x
     &1807, x1808, x1809, x1810, x1811, x1812, x1813, x1814, x1815, x181
     &6, x1817, x1818, x1819, x1820, x1821, x1822, x1823, x1824, x1825, 
     &x1826, x1827, x1828, x1829, x1830, x1831, x1832, x1833, x1834, x18
     &35, x1836, x1837, x1838, x1839, x1840, x1841, x1842, x1843, x1844,
     & x1845, x1846, x1847, x1848, x1849, x1850, x1851, x1852, x1853, x1
     &854, x1855, x1856, x1857, x1858, x1859, x1860, x1861, x1862, x1863
     &, x1864, x1865, x1866, x1867, x1868, x1869, x1870, x1871, x1872, x
     &1873, x1874, x1875, x1876, x1877, x1878, x1879, x1880, x1881, x188
     &2, x1883, x1884, x1885, x1886, x1887, x1888, x1889, x1890, x1891, 
     &x1892, x1893, x1894, x1895, x1896, x1897, x1898, x1899, x1900, x19
     &01, x1902, x1903, x1904, x1905, x1906, x1907, x1908, x1909, x1910,
     & x1911, x1912, x1913, x1914, x1915, x1916, x1917, x1918, x1919, x1
     &920, x1921, x1922, x1923, x1924, x1925, x1926, x1927, x1928, x1929
     &, x1930, x1931, x1932, x1933, x1934, x1935, x1936, x1937, x1938, x
     &1939, x1940, x1941, x1942, x1943, x1944, x1945, x1946, x1947, x194
     &8, x1949, x1950, x1951, x1952, x1953, x1954, x1955, x1956, x1957, 
     &x1958, x1959, x1960, x1961, x1962, x1963, x1964, x1965, x1966, x19
     &67, x1968, x1969, x1970, x1971, x1972, x1973, x1974, x1975, x1976,
     & x1977, x1978, x1979, x1980, x1981, x1982, x1983, x1984, x1985, x1
     &986, x1987, x1988, x1989, x1990, x1991, x1992, x1993, x1994, x1995
     &, x1996, x1997, x1998, x1999, x2000, x2001, x2002, x2003, x2004, x
     &2005, x2006, x2007, x2008, x2009, x2010, x2011, x2012, x2013, x201
     &4, x2015, x2016, x2017, x2018, x2019, x2020, x2021, x2022, x2023, 
     &x2024, x2025, x2026, x2027, x2028, x2029, x2030, x2031, x2032, x20
     &33, x2034, x2035, x2036, x2037, x2038, x2039, x2040, x2041, x2042,
     & x2043, x2044, x2045, x2046, x2047, x2048, x2049, x2050, x2051, x2
     &052, x2053, x2054, x2055, x2056, x2057, x2058, x2059, x2060, x2061
     &, x2062, x2063, x2064, x2065, x2066, x2067, x2068, x2069, x2070, x
     &2071, x2072, x2073, x2074, x2075, x2076, x2077, x2078, x2079, x208
     &0, x2081, x2082, x2083, x2084, x2085, x2086, x2087, x2088, x2089, 
     &x2090, x2091, x2092, x2093, x2094, x2095, x2096, x2097, x2098, x20
     &99, x2100, x2101, x2102, x2103, x2104, x2105, x2106, x2107, x2108,
     & x2109, x2110, x2111, x2112, x2113, x2114, x2115, x2116, x2117, x2
     &118, x2119, x2120, x2121, x2122, x2123, x2124, x2125, x2126, x2127
     &, x2128, x2129, x2130, x2131, x2132, x2133, x2134, x2135, x2136, x
     &2137, x2138, x2139, x2140, x2141, x2142, x2143, x2144, x2145, x214
     &6, x2147, x2148, x2149, x2150, x2151, x2152, x2153, x2154, x2155, 
     &x2156, x2157, x2158, x2159, x2160, x2161, x2162, x2163, x2164, x21
     &65, x2166, x2167, x2168, x2169, x2170, x2171, x2172, x2173, x2174,
     & x2175, x2176, x2177, x2178, x2179, x2180, x2181, x2182, x2183, x2
     &184, x2185, x2186, x2187, x2188, x2189, x2190, x2191, x2192, x2193
     &, x2194, x2195, x2196, x2197, x2198, x2199, x2200, x2201, x2202, x
     &2203, x2204, x2205, x2206, x2207, x2208, x2209, x2210, x2211, x221
     &2, x2213, x2214, x2215, x2216, x2217, x2218, x2219, x2220, x2221, 
     &x2222, x2223, x2224, x2225, x2226, x2227, x2228, x2229, x2230, x22
     &31, x2232, x2233, x2234, x2235, x2236, x2237, x2238, x2239, x2240,
     & x2241, x2242, x2243, x2244, x2245, x2246, x2247, x2248, x2249, x2
     &250, x2251, x2252, x2253, x2254, x2255, x2256, x2257, x2258, x2259
     &, x2260, x2261, x2262, x2263, x2264, x2265, x2266, x2267, x2268, x
     &2269, x2270, x2271, x2272, x2273, x2274, x2275, x2276, x2277, x227
     &8, x2279, x2280, x2281, x2282, x2283, x2284, x2285, x2286, x2287, 
     &x2288, x2289, x2290, x2291, x2292, x2293, x2294, x2295, x2296, x22
     &97, x2298, x2299, x2300, x2301, x2302, x2303, x2304, x2305, x2306,
     & x2307, x2308, x2309, x2310, x2311, x2312, x2313, x2314, x2315, x2
     &316, x2317, x2318, x2319, x2320, x2321, x2322, x2323, x2324, x2325
     &, x2326, x2327, x2328, x2329, x2330, x2331, x2332, x2333, x2334, x
     &2335, x2336, x2337, x2338, x2339, x2340, x2341, x2342, x2343, x234
     &4, x2345, x2346, x2347, x2348, x2349, x2350, x2351, x2352, x2353, 
     &x2354, x2355, x2356, x2357, x2358, x2359, x2360, x2361, x2362, x23
     &63, x2364, x2365, x2366, x2367, x2368, x2369, x2370, x2371, x2372,
     & x2373, x2374, x2375, x2376, x2377, x2378, x2379, x2380, x2381, x2
     &382, x2383, x2384, x2385, x2386, x2387, x2388, x2389, x2390, x2391
     &, x2392, x2393, x2394, x2395, x2396, x2397, x2398, x2399, x2400, x
     &2401, x2402, x2403, x2404, x2405, x2406, x2407, x2408, x2409, x241
     &0, x2411, x2412, x2413, x2414, x2415, x2416, x2417, x2418, x2419, 
     &x2420, x2421, x2422, x2423, x2424, x2425, x2426, x2427, x2428, x24
     &29, x2430, x2431, x2432, x2433, x2434, x2435, x2436, x2437, x2438,
     & x2439, x2440, x2441, x2442, x2443, x2444, x2445, x2446, x2447, x2
     &448, x2449, x2450, x2451, x2452, x2453, x2454, x2455, x2456, x2457
     &, x2458, x2459, x2460, x2461, x2462, x2463, x2464, x2465, x2466, x
     &2467, x2468, x2469, x2470, x2471, x2472, x2473, x2474, x2475, x247
     &6, x2477, x2478, x2479, x2480, x2481, x2482, x2483, x2484, x2485, 
     &x2486, x2487, x2488, x2489, x2490, x2491, x2492, x2493, x2494, x24
     &95, x2496, x2497, x2498, x2499, x2500, x2501, x2502, x2503, x2504,
     & x2505, x2506, x2507, x2508, x2509, x2510, x2511, x2512, x2513, x2
     &514, x2515, x2516, x2517, x2518, x2519, x2520, x2521, x2522, x2523
     &, x2524, x2525, x2526, x2527, x2528, x2529, x2530, x2531, x2532, x
     &2533, x2534, x2535, x2536, x2537, x2538, x2539, x2540, x2541, x254
     &2, x2543, x2544, x2545, x2546, x2547, x2548, x2549, x2550, x2551, 
     &x2552, x2553, x2554, x2555, x2556, x2557, x2558, x2559, x2560, x25
     &61, x2562, x2563, x2564, x2565, x2566, x2567, x2568, x2569, x2570,
     & x2571, x2572, x2573, x2574, x2575, x2576, x2577, x2578, x2579, x2
     &580, x2581, x2582, x2583, x2584, x2585, x2586, x2587, x2588, x2589
     &, x2590, x2591, x2592, x2593, x2594, x2595, x2596, x2597, x2598, x
     &2599, x2600, x2601, x2602, x2603, x2604, x2605, x2606, x2607, x260
     &8, x2609, x2610, x2611, x2612, x2613, x2614, x2615, x2616, x2617, 
     &x2618, x2619, x2620, x2621, x2622, x2623, x2624, x2625, x2626, x26
     &27, x2628, x2629, x2630, x2631, x2632, x2633, x2634, x2635, x2636,
     & x2637, x2638, x2639, x2640, x2641, x2642, x2643, x2644, x2645, x2
     &646, x2647, x2648, x2649, x2650, x2651, x2652, x2653, x2654, x2655
     &, x2656, x2657, x2658, x2659, x2660, x2661, x2662, x2663, x2664, x
     &2665, x2666, x2667, x2668, x2669, x2670, x2671, x2672, x2673, x267
     &4, x2675, x2676, x2677, x2678, x2679, x2680, x2681, x2682, x2683, 
     &x2684, x2685, x2686, x2687, x2688, x2689, x2690, x2691, x2692, x26
     &93, x2694, x2695, x2696, x2697, x2698, x2699, x2700, x2701, x2702,
     & x2703, x2704, x2705, x2706, x2707, x2708, x2709, x2710, x2711, x2
     &712, x2713, x2714, x2715, x2716, x2717, x2718, x2719, x2720, x2721
     &, x2722, x2723, x2724, x2725, x2726, x2727, x2728, x2729, x2730, x
     &2731, x2732, x2733, x2734, x2735, x2736, x2737, x2738, x2739, x274
     &0, x2741, x2742, x2743, x2744, x2745, x2746, x2747, x2748, x2749, 
     &x2750, x2751, x2752, x2753, x2754, x2755, x2756, x2757, x2758, x27
     &59, x2760, x2761, x2762, x2763, x2764, x2765, x2766, x2767, x2768,
     & x2769, x2770, x2771, x2772, x2773, x2774, x2775, x2776, x2777, x2
     &778, x2779, x2780, x2781, x2782, x2783, x2784, x2785, x2786, x2787
     &, x2788, x2789, x2790, x2791, x2792, x2793, x2794, x2795, x2796, x
     &2797, x2798, x2799, x2800, x2801, x2802, x2803, x2804, x2805, x280
     &6, x2807, x2808, x2809, x2810, x2811, x2812, x2813, x2814, x2815, 
     &x2816, x2817, x2818, x2819, x2820, x2821, x2822, x2823, x2824, x28
     &25, x2826, x2827, x2828, x2829, x2830, x2831, x2832, x2833, x2834,
     & x2835, x2836, x2837, x2838, x2839, x2840, x2841, x2842, x2843, x2
     &844, x2845, x2846, x2847, x2848, x2849, x2850, x2851, x2852, x2853
     &, x2854, x2855, x2856, x2857, x2858, x2859, x2860, x2861, x2862, x
     &2863, x2864, x2865, x2866, x2867, x2868, x2869, x2870, x2871, x287
     &2, x2873, x2874, x2875, x2876, x2877, x2878, x2879, x2880, x2881, 
     &x2882, x2883, x2884, x2885, x2886, x2887, x2888, x2889, x2890, x28
     &91, x2892, x2893, x2894, x2895, x2896, x2897, x2898, x2899, x2900,
     & x2901, x2902, x2903, x2904, x2905, x2906, x2907, x2908, x2909, x2
     &910, x2911, x2912, x2913, x2914, x2915, x2916, x2917, x2918, x2919
     &, x2920, x2921, x2922, x2923, x2924, x2925, x2926, x2927, x2928, x
     &2929, x2930, x2931, x2932, x2933, x2934, x2935, x2936, x2937, x293
     &8, x2939, x2940, x2941, x2942, x2943, x2944, x2945, x2946, x2947, 
     &x2948, x2949, x2950, x2951, x2952, x2953, x2954, x2955, x2956, x29
     &57, x2958, x2959, x2960, x2961, x2962, x2963, x2964, x2965, x2966,
     & x2967, x2968, x2969, x2970, x2971, x2972, x2973, x2974, x2975, x2
     &976, x2977, x2978, x2979, x2980, x2981, x2982, x2983, x2984, x2985
     &, x2986, x2987, x2988, x2989, x2990, x2991, x2992, x2993, x2994, x
     &2995, x2996, x2997, x2998, x2999, x3000, x3001, x3002, x3003, x300
     &4, x3005, x3006, x3007, x3008, x3009, x3010, x3011, x3012, x3013, 
     &x3014, x3015, x3016, x3017, x3018, x3019, x3020, x3021, x3022, x30
     &23, x3024, x3025, x3026, x3027, x3028, x3029, x3030, x3031, x3032,
     & x3033, x3034, x3035, x3036, x3037, x3038, x3039, x3040, x3041, x3
     &042, x3043, x3044, x3045, x3046, x3047, x3048, x3049, x3050, x3051
     &, x3052, x3053, x3054, x3055, x3056, x3057, x3058, x3059, x3060, x
     &3061, x3062, x3063, x3064, x3065, x3066, x3067, x3068, x3069, x307
     &0, x3071, x3072, x3073, x3074, x3075, x3076, x3077, x3078, x3079, 
     &x3080, x3081, x3082, x3083, x3084, x3085, x3086, x3087, x3088, x30
     &89, x3090, x3091, x3092, x3093, x3094, x3095, x3096, x3097, x3098,
     & x3099, x3100, x3101, x3102, x3103, x3104, x3105, x3106, x3107, x3
     &108, x3109, x3110, x3111, x3112, x3113, x3114, x3115, x3116, x3117
     &, x3118, x3119, x3120, x3121, x3122, x3123, x3124, x3125, x3126, x
     &3127, x3128, x3129, x3130, x3131, x3132, x3133, x3134, x3135, x313
     &6, x3137, x3138, x3139, x3140, x3141, x3142, x3143, x3144, x3145, 
     &x3146, x3147, x3148, x3149, x3150, x3151, x3152, x3153, x3154, x31
     &55, x3156, x3157, x3158, x3159, x3160, x3161, x3162, x3163, x3164,
     & x3165, x3166, x3167, x3168, x3169, x3170, x3171, x3172, x3173, x3
     &174, x3175, x3176, x3177, x3178, x3179, x3180, x3181, x3182, x3183
     &, x3184, x3185, x3186, x3187, x3188, x3189, x3190, x3191, x3192, x
     &3193, x3194, x3195, x3196, x3197, x3198, x3199, x3200, x3201, x320
     &2, x3203, x3204, x3205, x3206, x3207, x3208, x3209, x3210, x3211, 
     &x3212, x3213, x3214, x3215, x3216, x3217, x3218, x3219, x3220, x32
     &21, x3222, x3223, x3224, x3225, x3226, x3227, x3228, x3229, x3230,
     & x3231, x3232, x3233, x3234, x3235, x3236, x3237, x3238, x3239, x3
     &240, x3241, x3242, x3243, x3244, x3245, x3246, x3247, x3248, x3249
     &, x3250, x3251, x3252, x3253, x3254, x3255, x3256, x3257, x3258, x
     &3259, x3260, x3261, x3262, x3263, x3264, x3265, x3266, x3267, x326
     &8, x3269, x3270, x3271, x3272, x3273, x3274, x3275, x3276, x3277, 
     &x3278, x3279, x3280, x3281, x3282, x3283, x3284, x3285, x3286, x32
     &87, x3288, x3289, x3290, x3291, x3292, x3293, x3294, x3295, x3296,
     & x3297, x3298, x3299, x3300, x3301, x3302, x3303, x3304, x3305, x3
     &306, x3307, x3308, x3309, x3310, x3311, x3312, x3313, x3314, x3315
     &, x3316, x3317, x3318, x3319, x3320, x3321, x3322, x3323, x3324, x
     &3325, x3326, x3327, x3328, x3329, x3330, x3331, x3332, x3333, x333
     &4, x3335, x3336, x3337, x3338, x3339, x3340, x3341, x3342, x3343, 
     &x3344, x3345, x3346, x3347, x3348, x3349, x3350, x3351, x3352, x33
     &53, x3354, x3355, x3356, x3357, x3358, x3359, x3360, x3361, x3362,
     & x3363, x3364, x3365, x3366, x3367, x3368, x3369, x3370, x3371, x3
     &372, x3373, x3374, x3375, x3376, x3377, x3378, x3379, x3380, x3381
     &, x3382, x3383, x3384, x3385, x3386, x3387, x3388, x3389, x3390, x
     &3391, x3392, x3393, x3394, x3395, x3396, x3397, x3398, x3399, x340
     &0, x3401, x3402, x3403, x3404, x3405, x3406, x3407, x3408, x3409, 
     &x3410, x3411, x3412, x3413, x3414, x3415, x3416, x3417, x3418, x34
     &19, x3420, x3421, x3422, x3423, x3424, x3425, x3426, x3427, x3428,
     & x3429, x3430, x3431, x3432, x3433, x3434, x3435, x3436, x3437, x3
     &438, x3439, x3440, x3441, x3442, x3443, x3444, x3445, x3446, x3447
     &, x3448, x3449, x3450, x3451, x3452, x3453, x3454, x3455, x3456, x
     &3457, x3458, x3459, x3460, x3461, x3462, x3463, x3464, x3465, x346
     &6, x3467, x3468, x3469, x3470, x3471, x3472, x3473, x3474, x3475, 
     &x3476, x3477, x3478, x3479, x3480, x3481, x3482, x3483, x3484, x34
     &85, x3486, x3487, x3488, x3489, x3490, x3491, x3492, x3493, x3494,
     & x3495, x3496, x3497, x3498, x3499, x3500, x3501, x3502, x3503, x3
     &504, x3505, x3506, x3507, x3508, x3509, x3510, x3511, x3512, x3513
     &, x3514, x3515, x3516, x3517, x3518, x3519, x3520, x3521, x3522, x
     &3523, x3524, x3525, x3526, x3527, x3528, x3529, x3530, x3531, x353
     &2, x3533, x3534, x3535, x3536, x3537, x3538, x3539, x3540, x3541, 
     &x3542, x3543, x3544, x3545, x3546, x3547, x3548, x3549, x3550, x35
     &51, x3552, x3553, x3554, x3555, x3556, x3557, x3558, x3559, x3560,
     & x3561, x3562, x3563, x3564, x3565, x3566, x3567, x3568, x3569, x3
     &570, x3571, x3572, x3573, x3574, x3575, x3576, x3577, x3578, x3579
     &, x3580, x3581, x3582, x3583, x3584, x3585, x3586, x3587, x3588, x
     &3589, x3590, x3591, x3592, x3593, x3594, x3595, x3596, x3597, x359
     &8, x3599, x3600, x3601, x3602, x3603, x3604, x3605, x3606, x3607, 
     &x3608, x3609, x3610, x3611, x3612, x3613, x3614, x3615, x3616, x36
     &17, x3618, x3619, x3620, x3621, x3622, x3623, x3624, x3625, x3626,
     & x3627, x3628, x3629, x3630, x3631, x3632, x3633, x3634, x3635, x3
     &636, x3637, x3638, x3639, x3640, x3641, x3642, x3643, x3644, x3645
     &, x3646, x3647, x3648, x3649, x3650, x3651, x3652, x3653, x3654, x
     &3655, x3656, x3657, x3658, x3659, x3660, x3661, x3662, x3663, x366
     &4, x3665, x3666, x3667, x3668, x3669, x3670, x3671, x3672, x3673, 
     &x3674, x3675, x3676, x3677, x3678, x3679, x3680, x3681, x3682, x36
     &83, x3684, x3685, x3686, x3687, x3688, x3689, x3690, x3691, x3692,
     & x3693, x3694, x3695, x3696, x3697, x3698, x3699, x3700, x3701, x3
     &702, x3703, x3704, x3705, x3706, x3707, x3708, x3709, x3710, x3711
     &, x3712, x3713, x3714, x3715, x3716, x3717, x3718, x3719, x3720, x
     &3721, x3722, x3723, x3724, x3725, x3726, x3727, x3728, x3729, x373
     &0, x3731, x3732, x3733, x3734, x3735, x3736, x3737, x3738, x3739, 
     &x3740, x3741, x3742, x3743, x3744, x3745, x3746, x3747, x3748, x37
     &49, x3750, x3751, x3752, x3753, x3754, x3755, x3756, x3757, x3758,
     & x3759, x3760, x3761, x3762, x3763, x3764, x3765, x3766, x3767, x3
     &768, x3769, x3770, x3771, x3772, x3773, x3774, x3775, x3776, x3777
     &, x3778, x3779, x3780, x3781, x3782, x3783, x3784, x3785, x3786, x
     &3787, x3788, x3789, x3790, x3791, x3792, x3793, x3794, x3795, x379
     &6, x3797, x3798, x3799, x3800, x3801, x3802, x3803, x3804, x3805, 
     &x3806, x3807, x3808, x3809, x3810, x3811, x3812, x3813, x3814, x38
     &15, x3816, x3817, x3818, x3819, x3820, x3821, x3822, x3823, x3824,
     & x3825, x3826, x3827, x3828, x3829, x3830, x3831, x3832, x3833, x3
     &834, x3835, x3836, x3837, x3838, x3839, x3840, x3841, x3842, x3843
     &, x3844, x3845, x3846, x3847, x3848, x3849, x3850, x3851, x3852, x
     &3853, x3854, x3855, x3856, x3857, x3858, x3859, x3860, x3861, x386
     &2, x3863, x3864, x3865, x3866, x3867, x3868, x3869, x3870, x3871, 
     &x3872, x3873, x3874, x3875, x3876, x3877, x3878, x3879, x3880, x38
     &81, x3882, x3883, x3884, x3885, x3886, x3887, x3888, x3889, x3890,
     & x3891, x3892, x3893, x3894, x3895, x3896, x3897, x3898, x3899, x3
     &900, x3901, x3902, x3903, x3904, x3905, x3906, x3907, x3908, x3909
     &, x3910, x3911, x3912, x3913, x3914, x3915, x3916, x3917, x3918, x
     &3919, x3920, x3921, x3922, x3923, x3924, x3925, x3926, x3927, x392
     &8, x3929, x3930, x3931, x3932, x3933, x3934, x3935, x3936, x3937, 
     &x3938, x3939, x3940, x3941, x3942, x3943, x3944, x3945, x3946, x39
     &47, x3948, x3949, x3950, x3951, x3952, x3953, x3954, x3955, x3956,
     & x3957, x3958, x3959, x3960, x3961, x3962, x3963, x3964, x3965, x3
     &966, x3967, x3968, x3969, x3970, x3971, x3972, x3973, x3974, x3975
     &, x3976, x3977, x3978, x3979, x3980, x3981, x3982, x3983, x3984, x
     &3985, x3986, x3987, x3988, x3989, x3990, x3991, x3992, x3993, x399
     &4, x3995, x3996, x3997, x3998, x3999, x4000, x4001, x4002, x4003, 
     &x4004, x4005, x4006, x4007, x4008, x4009, x4010, x4011, x4012, x40
     &13, x4014, x4015, x4016, x4017, x4018, x4019, x4020, x4021, x4022,
     & x4023, x4024, x4025, x4026, x4027, x4028, x4029, x4030, x4031, x4
     &032, x4033, x4034, x4035, x4036, x4037, x4038, x4039, x4040, x4041
     &, x4042, x4043, x4044, x4045, x4046, x4047, x4048, x4049, x4050, x
     &4051, x4052, x4053, x4054, x4055, x4056, x4057, x4058, x4059, x406
     &0, x4061, x4062, x4063, x4064, x4065, x4066, x4067, x4068, x4069, 
     &x4070, x4071, x4072, x4073, x4074, x4075, x4076, x4077, x4078, x40
     &79, x4080, x4081, x4082, x4083, x4084, x4085, x4086, x4087, x4088,
     & x4089, x4090, x4091, x4092, x4093, x4094, x4095, x4096, x4097, x4
     &098, x4099, x4100, x4101, x4102, x4103, x4104, x4105, x4106, x4107
     &, x4108, x4109, x4110, x4111, x4112, x4113, x4114, x4115, x4116, x
     &4117, x4118, x4119, x4120, x4121, x4122, x4123, x4124, x4125, x412
     &6, x4127, x4128, x4129, x4130, x4131, x4132, x4133, x4134, x4135, 
     &x4136, x4137, x4138, x4139, x4140, x4141, x4142, x4143, x4144, x41
     &45, x4146, x4147, x4148, x4149, x4150, x4151, x4152, x4153, x4154,
     & x4155, x4156, x4157, x4158, x4159, x4160, x4161, x4162, x4163, x4
     &164, x4165, x4166, x4167, x4168, x4169, x4170, x4171, x4172, x4173
     &, x4174, x4175, x4176, x4177, x4178, x4179, x4180, x4181, x4182, x
     &4183, x4184, x4185, x4186, x4187, x4188, x4189, x4190, x4191, x419
     &2, x4193, x4194, x4195, x4196, x4197, x4198, x4199, x4200, x4201, 
     &x4202, x4203, x4204, x4205, x4206, x4207, x4208, x4209, x4210, x42
     &11, x4212, x4213, x4214, x4215, x4216, x4217, x4218, x4219, x4220,
     & x4221, x4222, x4223, x4224, x4225, x4226, x4227, x4228, x4229, x4
     &230, x4231, x4232, x4233, x4234, x4235, x4236, x4237, x4238, x4239
     &, x4240, x4241, x4242, x4243, x4244, x4245, x4246, x4247, x4248, x
     &4249, x4250, x4251, x4252, x4253, x4254, x4255, x4256, x4257, x425
     &8, x4259, x4260, x4261, x4262, x4263, x4264, x4265, x4266, x4267, 
     &x4268, x4269, x4270, x4271, x4272, x4273, x4274, x4275, x4276, x42
     &77, x4278, x4279, x4280, x4281, x4282, x4283, x4284, x4285, x4286,
     & x4287, x4288, x4289, x4290, x4291, x4292, x4293, x4294, x4295, x4
     &296, x4297, x4298, x4299, x4300, x4301, x4302, x4303, x4304, x4305
     &, x4306, x4307, x4308, x4309, x4310, x4311, x4312
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 0.693147180559945d0
      x1 = -x0 + 1.0d0
      x2 = 1d0/x1
      x3 = 1d0/rho_c
      x4 = rho_s*x3
      x5 = x4 + 1.0d0
      x6 = -x4 + 1.0d0
      x7 = x5**0.666666666666667d0 + x6**0.666666666666667d0
      x8 = x7**2
      x9 = 1d0/x8
      x10 = x2*x9
      x11 = gamma_cc*x10
      x12 = 1.46459188756152d0
      x13 = 1d0/x12
      x14 = rho_c**(-0.333333333333333d0)
      x15 = x13*x14
      x16 = 0.186690969707574d0*x15 + 1.0d0
      x17 = 2.14502939711103d0
      x18 = 1d0/x17
      x19 = rho_c**0.666666666666667d0
      x20 = 1d0/x19
      x21 = x18*x20
      x22 = 0.564189583547756d0
      x23 = rho_c**(-0.5d0)*x22
      x24 = 0.826307487110758d0
      x25 = rho_c**(-0.166666666666667d0)*x24
      x26 = 5.63098414909788d0*x15 + 0.516066464547863d0*x21 + 2.9152147
     &1421918d0* x23 + 13.4579137143944d0*x25
      x27 = 9.86960440108936d0
      x28 = x2*x27
      x29 = 1.0d0 + x28/x26
      x30 = log(x29)
      x31 = x16*x30
      x32 = 0.194159335344114d0*x15 + 1.0d0
      x33 = 3.25955091942229d0*x15 + 0.406913004517529d0*x21 + 1.4187228
     &1647967d0* x23 + 7.24010193431683d0*x25
      x34 = x28/x33
      x35 = log(0.5d0*x34 + 1.0d0)
      x36 = x32*x35
      x37 = 2.0d0*x36
      x38 = -x31 + x37
      x39 = 1d0/x27
      x40 = x1*x39
      x41 = x5**1.33333333333333d0
      x42 = x6**1.33333333333333d0
      x43 = 1.92366105093154d0*x41 + 1.92366105093154d0*x42 - 3.84732210
     &186307d0
      x44 = rho_c**(-4)
      x45 = rho_s**4
      x46 = x44*x45
      x47 = x43*x46
      x48 = x40*x47
      x49 = x38*x48
      x50 = x37*x40
      x51 = -x46 + 1.0d0
      x52 = x43*x51
      x53 = 0.101077332976288d0*x15 + 1.0d0
      x54 = 3.29180480994506d0*x15 + 0.410025070949612d0*x21 + 0.7623275
     &2193529d0* x23 + 9.87212972256927d0*x25
      x55 = 1.0d0 + 29.6085746432167d0/x54
      x56 = log(x55)
      x57 = x53*x56
      x58 = 0.0197517897025652d0*x57
      x59 = x52*x58
      x60 = -x50 + x59
      x61 = x49 + x60
      x62 = x7**3
      x63 = 1d0/x62
      x64 = x28*x63
      x65 = 8.0d0*x64
      x66 = exp(-x61*x65)
      x67 = -x66 + 1.0d0
      x68 = rho_c**(-4.66666666666667d0)
      x69 = 208.945363813799d0
      x70 = x68*x69
      x71 = 0.000133775426970164d0*x70
      x72 = gamma_cc**2
      x73 = x1**(-2)
      x74 = x7**(-4)
      x75 = x73*x74
      x76 = x72*x75
      x77 = x71*x76
      x78 = 1d0/x67
      x79 = rho_c**(-2.33333333333333d0)
      x80 = 14.4549425392770d0
      x81 = x79*x80
      x82 = 0.0115661327577615d0*x81
      x83 = x11*x82
      x84 = -x78*x83 + 1.0d0
      x85 = 1d0/(x84 + x77/x67**2)
      x86 = x82*x84
      x87 = x85*x86
      x88 = x11*x87 + 1.0d0
      x89 = log(x88)
      x90 = x40*x62
      x91 = 0.125d0*x90
      x92 = x89*x91
      x93 = x31 - x37
      x94 = x48*x93
      x95 = x60 - x94
      x96 = x92 + x95
      x97 = rho_c + rho_s
      x98 = 1d0/x97
      x99 = x98**0.333333333333333d0
      x100 = x13*x99
      x101 = 0.235215882559859d0*x100 + 1.0d0
      x102 = x98**0.666666666666667d0
      x103 = 0.819204448708788d0*x18
      x104 = sqrt(x98)
      x105 = 4.12273618607837d0*x22
      x106 = x104*x105
      x107 = x98**0.166666666666667d0
      x108 = 15.10599739383d0*x24
      x109 = 7.09459546107279d0*x100 + x102*x103 + x106 + x107*x108
      x110 = 1.0d0 + x28/x109
      x111 = log(x110)
      x112 = x101*x111
      x113 = 1.0d0*x112
      x114 = x97**(-4.66666666666667d0)
      x115 = 0.000535101707880657d0*x69
      x116 = x115*x73
      x117 = exp(2.0000000000000004d0*x112)
      x118 = x117 - 1.0d0
      x119 = x118**(-2)
      x120 = 0.5d0*gamma_cs
      x121 = 0.25d0*gamma_cc
      x122 = 0.25d0*gamma_ss
      x123 = x121 + x122
      x124 = x120 + x123
      x125 = x124**2
      x126 = x119*x125
      x127 = x97**(-2.33333333333333d0)
      x128 = 0.0231322655155231d0*x80
      x129 = x127*x128
      x130 = 1d0/x118
      x131 = x130*x2
      x132 = x124*x131
      x133 = x129*x132
      x134 = x133 + 1.0d0
      x135 = x114*x116*x126 + x134
      x136 = 1d0/x135
      x137 = x124*x2
      x138 = x129*x134
      x139 = x136*x137*x138 + 1.0d0
      x140 = log(x139)
      x141 = 0.5d0*x140
      x142 = -x113 + x141
      x143 = rho_c - rho_s
      x144 = 1d0/x143
      x145 = x144**0.333333333333333d0
      x146 = x13*x145
      x147 = 0.235215882559859d0*x146 + 1.0d0
      x148 = x144**0.666666666666667d0
      x149 = sqrt(x144)
      x150 = x105*x149
      x151 = x144**0.166666666666667d0
      x152 = x103*x148 + x108*x151 + 7.09459546107279d0*x146 + x150
      x153 = 1.0d0 + x28/x152
      x154 = log(x153)
      x155 = x147*x154
      x156 = 1.0d0*x155
      x157 = -x120 + x123
      x158 = x157*x2
      x159 = x143**(-2.33333333333333d0)
      x160 = x128*x159
      x161 = x143**(-4.66666666666667d0)
      x162 = exp(2.0000000000000004d0*x155)
      x163 = x162 - 1.0d0
      x164 = x163**(-2)
      x165 = x157**2
      x166 = x164*x165
      x167 = 1d0/x163
      x168 = x167*x2
      x169 = x157*x168
      x170 = x160*x169
      x171 = x170 + 1.0d0
      x172 = x116*x161*x166 + x171
      x173 = 1d0/x172
      x174 = x171*x173
      x175 = x160*x174
      x176 = x158*x175 + 1.0d0
      x177 = log(x176)
      x178 = 0.5d0*x177
      x179 = -x156 + x178
      x180 = rho_c**(-3)
      x181 = rho_c**(-6)
      x182 = rho_s**6*x181
      x183 = 0.5d0*x46
      x184 = rho_c**2
      x185 = 1d0/x184
      x186 = rho_s**2
      x187 = x185*x186
      x188 = 2.26d0*x182 + x183 + 0.87d0*x187 + 0.53d0
      x189 = gamma_cc*x186
      x190 = gamma_cs*rho_s
      x191 = gamma_ss*x184 - 2.0d0*rho_c*x190 + x189
      x192 = 4.60115111447049d0
      x193 = 1d0/x192
      x194 = 1d0/x42 + 1d0/x41
      x195 = x194*x68
      x196 = x193*x195
      x197 = 0.060093732096142d0*x191*x196 + 1.0d0
      x198 = x197**(-4)
      x199 = x188*x198
      x200 = x199 + 1.0d0
      x201 = x180*x200
      x202 = tau_c**(-2)
      x203 = x202*x72
      x204 = x201*x203
      x205 = x142*x97
      x206 = x143*x179
      x207 = x205 + x206
      x208 = -0.5d0*x0 + 0.5d0
      x209 = x208*x39
      x210 = x207*x209
      x211 = x204*x210
      x212 = x185*x203
      x213 = x199*x212
      x214 = x213 + 64.0d0
      x215 = x50 - x59
      x216 = x215 - x49
      x217 = exp(x216*x65)
      x218 = x217 - 1.0d0
      x219 = x218**(-2)
      x220 = 1d0/x218
      x221 = x220*x83 + 1.0d0
      x222 = x219*x77 + x221
      x223 = 1d0/x222
      x224 = x221*x82
      x225 = x223*x224
      x226 = x11*x225 + 1.0d0
      x227 = log(x226)
      x228 = x227*x91
      x229 = x228 + x61
      x230 = x214*x229
      x231 = -x211 + x230
      x232 = 2.8d0*x211
      x233 = 2.8d0*x230
      x234 = -x232 + x233
      x235 = gamma_cc**3
      x236 = tau_c**(-3)
      x237 = x180*x236
      x238 = x235*x237
      x239 = x234*x238 + 32768.0d0
      x240 = x36*x40
      x241 = x227*x90
      x242 = x52*x57
      x243 = -4194304.0d0*x240 + 262144.0d0*x241 + 41422.505278314d0*x24
     &2 + 2097152.0d0*x49
      x244 = -x231*x239 + x243
      x245 = mu*x18
      x246 = 1.00537384780842d0*x245
      x247 = exp(-x14*x246)
      x248 = 4.76837158203125d-7*x247
      x249 = x244*x248
      x250 = 1d0/x95
      x251 = mu**2
      x252 = 0.508616435555896d0*x21*x251 + 1.0d0
      x253 = x252**(-4)
      x254 = -x187 + 1.0d0
      x255 = 0.0837224526465878d0
      x256 = exp(-0.6836107611867116d0*x15)
      x257 = rho_c**(-1.33333333333333d0)
      x258 = x193*x257
      x259 = rho_c**1.0d0
      x260 = 1d0/x259
      x261 = 3.14159265358979d0
      x262 = 1d0/x261
      x263 = 0.009578475d0*x262
      x264 = 0.0188171922990732d0*x15 + 0.0676322201645715d0*x21 + 0.001
     &26674656487366d0*x258 - x260*x263 + 1.0d0
      x265 = x256*x264
      x266 = x255*x265
      x267 = 1.41421356237310d0
      x268 = mu**5*x267
      x269 = x266*x268
      x270 = rho_c**(-1.66666666666667d0)
      x271 = 0.0892278228691848d0*x270
      x272 = x5**0.666666666666667d0
      x273 = x6**0.666666666666667d0
      x274 = x272 + x273
      x275 = x274**3
      x276 = x274**2
      x277 = 1d0/x276
      x278 = x251*x277
      x279 = x15*x278
      x280 = 1d0/x274
      x281 = mu*x280
      x282 = 11.1447260721495d0*x25*x281 + 1.0d0
      x283 = 12.5327170711751d0*x279 + x282
      x284 = 1d0/x283
      x285 = mu**3
      x286 = 1d0/x275
      x287 = 27.1408204624105d0*x23*x285*x286 + 27.0733719592201d0*x279 
     &+ x282
      x288 = x284*x287
      x289 = log(x288)
      x290 = x275*x289
      x291 = 0.179587122125167d0
      x292 = x265*x291
      x293 = 0.175432441092201d0*x260
      x294 = x292*x293
      x295 = -4.49737346725955d0*x15 + 0.825481812223657d0*x21
      x296 = exp(-0.28165369188898165d0*x15)
      x297 = x261*x296
      x298 = x254*x297
      x299 = 12.0d0*x298
      x300 = x295*x299
      x301 = 2.28942848510666d0
      x302 = x192*x301
      x303 = 0.817704266774463d0*x302
      x304 = x5**2
      x305 = 1d0/x5
      x306 = x305**0.333333333333333d0
      x307 = x15*x306
      x308 = 0.0259335011650457d0*x307
      x309 = -x308 + 1.0d0
      x310 = x305**0.666666666666667d0
      x311 = 0.0524148278841779d0*x21
      x312 = 0.494402081358784d0*x307 + x310*x311 + 1.0d0
      x313 = 1d0/x312
      x314 = 1d0/x310
      x315 = x313*x314
      x316 = x309*x315
      x317 = x304*x316
      x318 = x303*x317
      x319 = x6**2
      x320 = 1d0/x6
      x321 = x320**0.333333333333333d0
      x322 = x15*x321
      x323 = 0.0259335011650457d0*x322
      x324 = -x323 + 1.0d0
      x325 = x320**0.666666666666667d0
      x326 = x311*x325 + 0.494402081358784d0*x322 + 1.0d0
      x327 = 1d0/x326
      x328 = 1d0/x325
      x329 = x327*x328
      x330 = x324*x329
      x331 = x319*x330
      x332 = x303*x331
      x333 = x255*(x19*x318 + x19*x332 + x259*x300)
      x334 = 0.00111534778586481d0*x270
      x335 = x333*x334
      x336 = x267*x285
      x337 = 4.0d0*x336
      x338 = 0.0472353356922751d0
      x339 = mu**8*x338
      x340 = x339*x95
      x341 = rho_c**(-2.66666666666667d0)
      x342 = 0.267683468607554d0*x341
      x343 = 0.148394183600699d0
      x344 = x265 - 1.0d0
      x345 = x343*x344
      x346 = x254*x345
      x347 = -0.0167302167879722d0*x270*x346
      x348 = rho_c**(-2.0d0)
      x349 = 0.101321183642338d0
      x350 = 0.526297323276602d0*x349
      x351 = x348*x350
      x352 = mu**6
      x353 = 4.0d0*x352
      x354 = x254*x344
      x355 = 0.13157433081915d0*x354
      x356 = x260*x262
      x357 = -x355*x356
      x358 = x302*(x5**2.66666666666667d0 + x6**2.66666666666667d0)
      x359 = 0.817704266774463d0*x358
      x360 = exp(-0.49698248213959023d0*x15)
      x361 = x17*x360
      x362 = -0.352521395009435d0*x15 + 0.558025705063192d0*x21
      x363 = x254*x362
      x364 = x361*x363
      x365 = 10.9027235569928d0*x364
      x366 = x318 + x332 - x359 + x365
      x367 = 0.00139418473233101d0*x343
      x368 = rho_c**(-1.0d0)*x367
      x369 = 1.55214407110551d0*x258
      x370 = mu**4
      x371 = 4.0d0*x370
      x372 = -x254*x269*x271 - x290*x40 - x337*(x254*x294 + x335) + x340
     &*x342 + x353* (x347 + x351*x95) + x371*(x357 - x366*x368 + x369*x9
     &5)
      x373 = x253*x372
      x374 = 0.25d0*x373
      x375 = -x374 + x95
      x376 = x250*x375
      x377 = x376**5.56d0
      x378 = x187 - 1.0d0
      x379 = x266*x378
      x380 = x268*x271
      x381 = x39*(x0 - 1.0d0)
      x382 = x339*x342
      x383 = -x318 - x332 + x359 - x365
      x384 = x290*x381 + x337*(x294*x378 - x335) + x353*(x347 + x351*x61
     &) + x371*( x357 + x368*x383 + x369*x61) + x379*x380 + x382*x61
      x385 = x253*x384
      x386 = 0.25d0*x385
      x387 = -x386 + x61
      x388 = exp(-x387*x65)
      x389 = x388 - 1.0d0
      x390 = x389**(-2)
      x391 = x377*x390
      x392 = x376**2.78d0
      x393 = x392*x82
      x394 = 1d0/x389
      x395 = x11*x394
      x396 = x393*x395 + 1.0d0
      x397 = x391*x77 + x396
      x398 = 1d0/x397
      x399 = x393*x396
      x400 = x398*x399
      x401 = x11*x400 + 1.0d0
      x402 = log(x401)
      x403 = 0.125d0*x402*x90
      x404 = x215 + x94
      x405 = x374 + x404
      x406 = -x403 + x405
      x407 = x97**(-3.33333333333333d0)
      x408 = 0.0462645310310461d0*x407
      x409 = x408*x80
      x410 = x134*x409
      x411 = x97**(-3.33333333333333d0)
      x412 = 0.00771075517184102d0*x411
      x413 = x412*x80
      x414 = x134*x413
      x415 = 0.0231322655155231d0*x407
      x416 = x100*x111
      x417 = 0.546136299139192d0*x18
      x418 = 2.06136809303918d0*x22
      x419 = 2.517666232305d0*x24
      x420 = 2.36486515369093d0*x100 + x102*x417 + x104*x418 + x107*x419
     &
      x421 = 1d0/x110
      x422 = x421/x109**2
      x423 = x420*x422
      x424 = 0.470431765119717d0*x100 + 2.0d0
      x425 = x28*x424
      x426 = -0.156810588373239d0*x416 + x423*x425
      x427 = x117*x130
      x428 = x426*x427
      x429 = x408 + x412 + x415*x428
      x430 = x132*x69
      x431 = x429*x430
      x432 = 0.0231322655155231d0*x127
      x433 = x431*x432
      x434 = x415*x80
      x435 = x97**(-5.66666666666667d0)
      x436 = x430*x435
      x437 = x97**(-5.66666666666667d0)
      x438 = x430*x437
      x439 = 0.00107020341576131d0*x69
      x440 = x117*x119*x137*x439
      x441 = x426*x435
      x442 = 0.00214040683152263d0*x436 + 0.000356734471920438d0*x438 + 
     &x440*x441
      x443 = x409 + x413 + x428*x434 + x442
      x444 = x136*x443
      x445 = x133*x134
      x446 = x444*x445
      x447 = -x410 - x414 - x433 + x446
      x448 = x124*x447
      x449 = x136/x139
      x450 = x39*x449
      x451 = 0.5d0*x450
      x452 = x1/x80
      x453 = 0.0784052941866196d0*x452
      x454 = x111*x99
      x455 = x453*x454*x98
      x456 = 1.0d0*x101
      x457 = x423*x456*x98
      x458 = x455 - x457
      x459 = x448*x451 + x458
      x460 = 0.5d0*x97
      x461 = x459*x460
      x462 = 0.25d0*x40
      x463 = x140*x462
      x464 = 0.5d0*x40
      x465 = x112*x464
      x466 = x463 - x465
      x467 = x461 + x466
      x468 = x173/x176
      x469 = x39*x468
      x470 = x157*x469
      x471 = x143**(-3.33333333333333d0)
      x472 = 0.0462645310310461d0*x471
      x473 = x472*x80
      x474 = x171*x473
      x475 = x143**(-3.33333333333333d0)
      x476 = 0.00771075517184102d0*x475
      x477 = x476*x80
      x478 = x171*x477
      x479 = x146*x154
      x480 = 0.156810588373239d0*x479
      x481 = 2.36486515369093d0*x146 + x148*x417 + x149*x418 + x151*x419
     &
      x482 = 1d0/x153
      x483 = x482/x152**2
      x484 = x481*x483
      x485 = 0.470431765119717d0*x146 + 2.0d0
      x486 = x28*x485
      x487 = x484*x486
      x488 = -x480 + x487
      x489 = 0.0231322655155231d0*x471
      x490 = x162*x167
      x491 = x489*x490
      x492 = x472 + x476
      x493 = x488*x491 + x492
      x494 = x169*x69
      x495 = x493*x494
      x496 = 0.0231322655155231d0*x159
      x497 = x495*x496
      x498 = x489*x80
      x499 = x488*x490
      x500 = x143**(-5.66666666666667d0)
      x501 = x158*x162*x164
      x502 = x439*x501
      x503 = x500*x502
      x504 = x494*x500
      x505 = 0.00214040683152263d0*x504
      x506 = x143**(-5.66666666666667d0)
      x507 = x494*x506
      x508 = 0.000356734471920438d0*x507
      x509 = x473 + x477 + x505 + x508
      x510 = x488*x503 + x498*x499 + x509
      x511 = x170*x174
      x512 = x510*x511
      x513 = -x474 - x478 - x497 + x512
      x514 = 0.5d0*x513
      x515 = x145*x154
      x516 = x144*x453*x515
      x517 = 1.0d0*x147
      x518 = x144*x484*x517
      x519 = x516 - x518
      x520 = x470*x514 + x519
      x521 = 0.5d0*x143
      x522 = x177*x462
      x523 = x155*x464
      x524 = x522 - x523
      x525 = x520*x521 + x524
      x526 = x467 + x525
      x527 = x204*x526
      x528 = x200*x44
      x529 = x203*x528
      x530 = 3.0d0*x529
      x531 = 2.0d0*x187 + 13.56d0*x46 + 1.74d0
      x532 = x186*x531
      x533 = x180*x532
      x534 = gamma_ss*rho_c
      x535 = -x190 + x534
      x536 = 0.480749856769136d0*x195
      x537 = x535*x536
      x538 = rho_c**(-5.66666666666667d0)
      x539 = x194*x538
      x540 = 1.12174966579465d0*x539
      x541 = x191*x540
      x542 = rho_c**(-6.66666666666667d0)
      x543 = x191*x542
      x544 = x5**(-2.33333333333333d0)
      x545 = x6**(-2.33333333333333d0)
      x546 = x544 - x545
      x547 = 0.320499904512757d0*rho_s
      x548 = x546*x547
      x549 = x543*x548
      x550 = -x537 + x541 - x549
      x551 = 1d0/x197
      x552 = x188*x193
      x553 = x551*x552
      x554 = x550*x553
      x555 = -x533 + x554
      x556 = x180*x198
      x557 = x203*x556
      x558 = x555*x557
      x559 = x210*x558
      x560 = x38*x40
      x561 = rho_c**(-5)
      x562 = x45*x561
      x563 = x43*x562
      x564 = x560*x563
      x565 = 4.0d0*x564
      x566 = x43*x57
      x567 = x562*x566
      x568 = 0.0790071588102608d0*x567
      x569 = x13*x257
      x570 = x56*x569
      x571 = 0.000665486074881265d0*x570
      x572 = x52*x571
      x573 = -x572
      x574 = x18*x270
      x575 = rho_c**(-1.5d0)*x22
      x576 = rho_c**(-1.16666666666667d0)*x24
      x577 = 1.09726826998169d0*x569 + 0.273350047299742d0*x574 + 0.3811
     &63760967645d0 *x575 + 1.64535495376155d0*x576
      x578 = 1d0/x55
      x579 = x578/x54**2
      x580 = x577*x579
      x581 = 0.58482233974552d0*x580
      x582 = x52*x53
      x583 = x581*x582
      x584 = x6**0.333333333333333d0
      x585 = x5**0.333333333333333d0
      x586 = x584 - x585
      x587 = 0.0506609980493537d0*x57
      x588 = x51*x587
      x589 = x586*x588
      x590 = rho_s*x185
      x591 = x589*x590
      x592 = 2.0d0*x32
      x593 = 1.08651697314076d0*x569 + 0.27127533634502d0*x574 + 0.70936
     &1408239834d0* x575 + 1.20668365571947d0*x576
      x594 = x34 + 2.0d0
      x595 = 1d0/x594
      x596 = x595/x33**2
      x597 = x593*x596
      x598 = x592*x597
      x599 = x35*x452
      x600 = 0.129439556896076d0*x257
      x601 = x599*x600
      x602 = -x598 + x601
      x603 = x568 + x573 + x583 + x591 + x602
      x604 = 1.87699471636596d0*x569 + 0.344044309698576d0*x574 + 1.4576
     &0735710959d0* x575 + 2.24298561906574d0*x576
      x605 = 1d0/x29
      x606 = x26**(-2)
      x607 = x16*x605*x606
      x608 = x604*x607
      x609 = 0.062230323235858d0*x257
      x610 = x30*x452
      x611 = x609*x610
      x612 = x598 - x601
      x613 = -x608 + x611 + x612
      x614 = x47*x613
      x615 = rho_s**5
      x616 = x181*x615
      x617 = x586*x616
      x618 = 2.56488140124205d0*x560
      x619 = x617*x618
      x620 = x614 + x619
      x621 = -x565 + x603 + x620
      x622 = 0.125d0*gamma_cc
      x623 = 1.46459188756152d0
      x624 = x223/x226
      x625 = x623*x624
      x626 = x622*x625
      x627 = rho_c**(-3.33333333333333d0)
      x628 = 0.0269876431014436d0*x627
      x629 = x221*x628
      x630 = 1d0/x7
      x631 = rho_s*x630
      x632 = rho_c**(-4.33333333333333d0)
      x633 = x221*x632
      x634 = x5**(-0.333333333333333d0)
      x635 = x6**(-0.333333333333333d0)
      x636 = x634 - x635
      x637 = 0.015421510343682d0*x636
      x638 = x633*x637
      x639 = x631*x638
      x640 = x628*x80
      x641 = x632*x80
      x642 = x630*x641
      x643 = rho_s*x642
      x644 = x637*x643
      x645 = 2.0d0*x185
      x646 = x216*x630
      x647 = x645*x646
      x648 = 1.0d0*x635
      x649 = x634 - x648
      x650 = rho_s*x649
      x651 = x46 - 1.0d0
      x652 = x43*x651
      x653 = x53*x652
      x654 = x586*x651
      x655 = x590*x654
      x656 = x565 - x568 + x612 - x614 - x619
      x657 = -x571*x652 + x581*x653 + x587*x655 + x656
      x658 = x647*x650 + x657
      x659 = x217*x220
      x660 = x659*x79
      x661 = 142.664564503142d0
      x662 = 0.0925290620620922d0*x661
      x663 = x2*x63
      x664 = x662*x663
      x665 = x660*x664
      x666 = x658*x665
      x667 = -x640 + x644 - x666
      x668 = x667*x79
      x669 = x11*x220
      x670 = 0.0115661327577615d0*x669
      x671 = x668*x670
      x672 = 0.0115661327577615d0*x221
      x673 = x672*x79
      x674 = x669*x69
      x675 = x538*x674
      x676 = gamma_cc*x68
      x677 = x217*x676
      x678 = 2062.20808228389d0
      x679 = 0.00214040683152263d0*x678
      x680 = x677*x679
      x681 = x7**(-5)
      x682 = x681*x73
      x683 = x219*x682
      x684 = x658*x683
      x685 = gamma_cc*rho_s
      x686 = x636*x685
      x687 = x220*x686
      x688 = x542*x69
      x689 = x663*x688
      x690 = 0.000356734471920438d0*x689
      x691 = x640 - x644 + x666
      x692 = 0.000624285325860766d0*x675 + x680*x684 - x687*x690 + x691
      x693 = x223*x692
      x694 = x669*x693
      x695 = x673*x694
      x696 = -x629 + x639 + x671 + x695
      x697 = x696*x7
      x698 = -1.0d0*x634 + x635
      x699 = x590*x698
      x700 = 0.25d0*x699
      x701 = x40*x8
      x702 = x227*x701
      x703 = x626*x697 + x700*x702
      x704 = x621 + x703
      x705 = 2.0d0*x3
      x706 = x188*x705
      x707 = x555 - x706
      x708 = x198*x229
      x709 = x212*x708
      x710 = x214*x704 + x707*x709
      x711 = x210*x530 - x527 - x559 + x710
      x712 = 3.0d0*x234
      x713 = 8.4d0*x210
      x714 = 0.04375d0*x213 + 2.8d0
      x715 = x704*x714
      x716 = 0.04375d0*x533
      x717 = x3*(0.19775d0*x182 + 0.076125d0*x187 + 0.04375d0*x46 + 0.04
     &6375d0)
      x718 = 0.04375d0*x554
      x719 = -x716 - x717 + x718
      x720 = 64.0d0*x212
      x721 = x708*x719*x720 + 64.0d0*x715
      x722 = x238*(-x3*x712 - 2.8d0*x527 + x529*x713 - 2.8d0*x559 + x721
     &)
      x723 = 1395.62545290939d0*x570
      x724 = gamma_cc*x625
      x725 = 262144.0d0*x724
      x726 = 5378946.16037756d0*x617
      x727 = 1226461.339442d0*x580
      x728 = x57*x651
      x729 = 106243.813381198d0*x586
      x730 = x590*x729
      x731 = 524288.0d0*x699
      x732 = x32*x597
      x733 = x257*x599
      x734 = 165690.021113256d0*x567 - 4194304.0d0*x732 + 271454.4256237
     &2d0*x733
      x735 = x560*x726 - 8388608.0d0*x564 + 2097152.0d0*x614 + x652*x723
     & - x653*x727 + x697*x725 + x702*x731 - x728*x730 + x734
      x736 = x247*(-x231*x722 - x239*x711 + x735)
      x737 = x245*x257
      x738 = 0.33512461593614d0*x737
      x739 = x244*x247
      x740 = rho_c**(-4.66666666666667d0)
      x741 = x186*x740
      x742 = 0.17845564573837d0*x269
      x743 = -x741*x742
      x744 = rho_c**(-2.33333333333333d0)
      x745 = x193*x744
      x746 = 0.00168899541983155d0*x745
      x747 = x263*x348
      x748 = 0.045088146776381d0*x574
      x749 = 0.00627239743302441d0*x569
      x750 = x746 - x747 + x748 + x749
      x751 = x254*x256
      x752 = x750*x751
      x753 = x255*x380
      x754 = x265*x268
      x755 = x254*x754
      x756 = rho_c**(-3.0d0)
      x757 = 0.0571643564037363d0
      x758 = x756*x757
      x759 = 0.0203323666368788d0*x758
      x760 = x255*x341
      x761 = 0.148713038115308d0*x760
      x762 = x5**(-0.333333333333333d0)
      x763 = x6**(-0.333333333333333d0)
      x764 = x762 - x763
      x765 = rho_s*x764
      x766 = x276*x40
      x767 = x289*x766
      x768 = rho_c**(-3.66666666666667d0)
      x769 = 0.713822582953479d0*x768
      x770 = x281*x569
      x771 = 4.17757235705837d0*x770
      x772 = rho_s*x79
      x773 = mu*x277
      x774 = x13*x773
      x775 = x764*x772*x774
      x776 = 16.7102894282335d0*x775
      x777 = 1.85745434535825d0*x576
      x778 = rho_c**(-2.16666666666667d0)*x24
      x779 = x280*x778
      x780 = x765*x779
      x781 = 7.42981738143299d0*x780
      x782 = x777 - x781
      x783 = x771 - x776 + x782
      x784 = 9.02445731974005d0*x770
      x785 = x278*x575
      x786 = 13.5704102312052d0*x785
      x787 = 36.0978292789602d0*x775
      x788 = rho_c**(-2.5d0)*x22
      x789 = x251*x788
      x790 = x286*x765
      x791 = 54.281640924821d0*x789*x790
      x792 = -x777 + x781
      x793 = -x784 - x786 + x787 + x791 + x792
      x794 = x288*x783 + x793
      x795 = 1d0/x287
      x796 = mu*x795
      x797 = x794*x796
      x798 = x602 + x608 - x611
      x799 = x47*x798
      x800 = x40*x93
      x801 = x563*x800
      x802 = x617*x800
      x803 = x603 - x799 + 4.0d0*x801 - 2.56488140124205d0*x802
      x804 = 0.550321208149104d0*x574
      x805 = 1.49912448908652d0*x569
      x806 = -x804 + x805
      x807 = x259*x299
      x808 = x806*x807
      x809 = x295*x297
      x810 = 24.0d0*x809
      x811 = x186*x810
      x812 = x348*x811
      x813 = x254*x295*x296
      x814 = 2.14502939711103d0
      x815 = rho_c**(-0.333333333333333d0)*x814
      x816 = 1.12661476755593d0*x813*x815
      x817 = 0.00706864485168613d0*x19
      x818 = x305*x772
      x819 = x257 - x818
      x820 = x261*x301
      x821 = 1d0/x306
      x822 = x313*x821
      x823 = x820*x822
      x824 = x304*x819*x823
      x825 = x817*x824
      x826 = 1d0/x321
      x827 = x327*x826
      x828 = x820*x827
      x829 = x319*x828
      x830 = x320*x772
      x831 = x257 + x830
      x832 = x817*x831
      x833 = x829*x832
      x834 = rho_c**(-0.333333333333333d0)
      x835 = x302*x834
      x836 = 0.545136177849642d0*x835
      x837 = x317*x836
      x838 = x331*x836
      x839 = rho_c**(-1.33333333333333d0)
      x840 = x302*x839
      x841 = rho_s*x840
      x842 = 2.18054471139857d0*x841
      x843 = x330*x6
      x844 = x842*x843
      x845 = x312**(-2)
      x846 = x314*x845
      x847 = x309*x846
      x848 = x19*x303
      x849 = x847*x848
      x850 = x18*x341
      x851 = 0.034943218589452d0*x850
      x852 = rho_s*x305
      x853 = x310*x852
      x854 = x851*x853
      x855 = 0.164800693786261d0*x13
      x856 = x306*x818
      x857 = x855*x856
      x858 = 0.034943218589452d0*x574
      x859 = x310*x858
      x860 = 0.164800693786261d0*x569
      x861 = x306*x860
      x862 = x859 + x861
      x863 = -x854 - x857 + x862
      x864 = x304*x863
      x865 = x849*x864
      x866 = x326**(-2)
      x867 = x328*x866
      x868 = x324*x867
      x869 = x848*x868
      x870 = rho_s*x320
      x871 = x325*x870
      x872 = x321*x830
      x873 = x321*x860 + x325*x858
      x874 = x851*x871 + x855*x872 + x873
      x875 = x319*x874
      x876 = x869*x875
      x877 = x316*x5
      x878 = x842*x877
      x879 = x825 + x833 + x837 + x838 + x844 + x865 + x876 - x878
      x880 = x255*x334
      x881 = x291*x293
      x882 = 0.175432441092201d0*x292*x348
      x883 = 0.122619224952946d0
      x884 = x265*x883
      x885 = 0.0399758348639607d0*x744*x884
      x886 = 0.00185891297644135d0*x341
      x887 = 0.350864882184401d0*x292
      x888 = rho_c**(-4.0d0)
      x889 = x186*x888
      x890 = x333*x886 - x887*x889
      x891 = 0.0334604335759443d0*x345
      x892 = x741*x891
      x893 = x341*x343
      x894 = 0.0278836946466203d0*x354*x893
      x895 = 0.000844497709915773d0*x745
      x896 = x262*x348
      x897 = 0.0047892375d0*x896
      x898 = 0.0225440733881905d0*x574
      x899 = 0.0031361987165122d0*x569
      x900 = -x895 + x897 - x898 - x899
      x901 = 0.113935126864452d0*x264*x569 + x900
      x902 = x751*x901
      x903 = 0.0334604335759443d0*x270*x343
      x904 = x902*x903
      x905 = x349*x756
      x906 = 1.0525946465532d0*x61*x905
      x907 = x351*x621
      x908 = 0.263148661638301d0*x344
      x909 = x186*x262
      x910 = x888*x909
      x911 = x908*x910
      x912 = x355*x896
      x913 = 0.263148661638301d0*x356
      x914 = x902*x913
      x915 = x343*x383
      x916 = 0.00232364122055169d0*x348*x915
      x917 = 2.06952542814068d0*x61*x745
      x918 = 0.545136177849642d0*x358*x834
      x919 = 7.26848237132856d0*x364*x834
      x920 = 0.117507131669812d0*x569 - 0.372017136708795d0*x574
      x921 = x361*x920
      x922 = x254*x921
      x923 = 10.9027235569928d0*x19
      x924 = x922*x923
      x925 = x361*x362
      x926 = 21.8054471139857d0*x925
      x927 = x186*x79
      x928 = x926*x927
      x929 = x360*x363
      x930 = x12*x20
      x931 = 1.80615420514536d0*x929*x930
      x932 = x6**1.66666666666667d0
      x933 = x5**1.66666666666667d0
      x934 = x302*(x932 - x933)
      x935 = rho_s*x839
      x936 = 2.18054471139857d0*x934*x935
      x937 = -x825 - x833 - x837 - x838 - x844 - x865 - x876 + x878
      x938 = x918 - x919 - x924 - x928 - x931 + x936 + x937
      x939 = x270*x367
      x940 = x938*x939
      x941 = x369*x621
      x942 = x337*(x254*x882 - x254*x885 + x752*x881 - x880*(x300 + x808
     & + x812 + x816 + x879) + x890) - x340*x769 - x353*(x892 - x894 + x
     &904 + x906 - x907) - x371*(x911 - x912 + x914 + x916 + x917 - x940
     & - x941) + x382*x803 + x645*x765*x767 + x743 + x752*x753 - x755*x7
     &59 + x755*x761 - x766*x797
      x943 = x253*x942
      x944 = x251/x252**5
      x945 = x574*x944
      x946 = x372*x945
      x947 = x51*x57
      x948 = 1d0/x401
      x949 = 262144.0d0*x398
      x950 = x948*x949
      x951 = gamma_cc*x623
      x952 = x7*x951
      x953 = x396*x628
      x954 = -x634
      x955 = x635 + x954
      x956 = 0.015421510343682d0*x955
      x957 = x631*x632
      x958 = x396*x956*x957
      x959 = 8.0d0*x240
      x960 = 0.0790071588102608d0*x242
      x961 = -x959 + x960
      x962 = -x373 - 4.0d0*x94 + x961
      x963 = 1d0/x962
      x964 = x250*x962
      x965 = 4.0d0*x799
      x966 = 1.35631049481572d0*x946
      x967 = 16.0d0*x801
      x968 = 10.2595256049682d0*x802
      x969 = 8.0d0*x732
      x970 = 0.517758227584304d0*x733
      x971 = 0.316028635241043d0*x567
      x972 = 0.00266194429952506d0*x570
      x973 = x52*x972
      x974 = 2.33928935898208d0*x580
      x975 = x582*x974
      x976 = 0.202643992197415d0*x586
      x977 = x590*x976
      x978 = x947*x977
      x979 = -x969 + x970 + x971 - x973 + x975 + x978
      x980 = -x943 - x965 - x966 + x967 - x968 + x979
      x981 = -x621*x964 + x980
      x982 = x963*x981
      x983 = 0.032153849066577d0*x79
      x984 = x982*x983
      x985 = x396*x984
      x986 = 0.00289153318944038d0*x11
      x987 = x627*x80
      x988 = 0.107950572405774d0*x987
      x989 = rho_s*x636
      x990 = 0.0616860413747281d0*x630
      x991 = x641*x990
      x992 = x989*x991
      x993 = 0.128615396266308d0*x81
      x994 = 4.0d0*x49
      x995 = -x385 + x961 + x994
      x996 = 1d0/x995
      x997 = x572 - x583 - x591 + x656
      x998 = 1d0/x61
      x999 = x995*x998
      x1000 = x256*(-x746 + x747 - x748 - x749)
      x1001 = x1000*x378
      x1002 = x378*x754
      x1003 = -x762 + x763
      x1004 = x276*x381
      x1005 = x1004*x289
      x1006 = x339*x61
      x1007 = -x300 - x808 - x812 - x816 + x937
      x1008 = rho_s*x1003*x1005*x645 + x1001*x753 + x1002*x759 - x1002*x
     &761 + x1004* x797 - x1006*x769 + x337*(x1001*x881 + x1007*x880 - x
     &378*x882 + x378*x885 + x890) + x353*(-x892 + x894 - x904 - x906 + 
     &x907) + x371*(-x911 + x912 - x914 - x916 - x917 + x940 + x941) + x
     &382* x621 + x743
      x1009 = x1008*x253
      x1010 = 4.0d0*x614
      x1011 = 1.35631049481572d0*x384*x945
      x1012 = 16.0d0*x564
      x1013 = 10.2595256049682d0*x560
      x1014 = x1013*x617
      x1015 = -x1009 + x1010 - x1011 - x1012 + x1014 + x979
      x1016 = x1015 + x997*x999
      x1017 = x1016*x996
      x1018 = x1017*x993
      x1019 = x631*x645
      x1020 = x385 + x959 - x960 - x994
      x1021 = x1020*x649
      x1022 = x969 - x970 - x971
      x1023 = x1009 - x1010 + x1011 + x1012 - x1014
      x1024 = x1022 + x1023 - x652*x972 + x653*x974 + x728*x977
      x1025 = x1019*x1021 + x1024
      x1026 = x216 + x386
      x1027 = exp(x1026*x65)
      x1028 = x1025*x1027
      x1029 = x1027 - 1.0d0
      x1030 = 1d0/x1029
      x1031 = x1030*x79
      x1032 = x1031*x664
      x1033 = x1028*x1032
      x1034 = -x1018 + x1033 + x988 - x992
      x1035 = x387*x998
      x1036 = x1035**2.78d0
      x1037 = x1031*x1036
      x1038 = x1034*x1037
      x1039 = x1038*x986
      x1040 = x377*x395
      x1041 = x538*x69
      x1042 = 0.00249714130344307d0*x1041
      x1043 = x676*x682
      x1044 = x1043*x679
      x1045 = x648 + x954
      x1046 = x1045*x995
      x1047 = x1022 + x973 - x975 - x978
      x1048 = x1047 + x943 + x965 + x966 - x967 + x968
      x1049 = x1019*x1046 + x1048
      x1050 = x1049*x388*x391
      x1051 = 0.00142693788768175d0*x955
      x1052 = x377*x394
      x1053 = x685*x689
      x1054 = x1052*x1053
      x1055 = 0.00297516549581645d0*x70
      x1056 = x1040*x982
      x1057 = x392*x982
      x1058 = rho_s*x392
      x1059 = x664*x79
      x1060 = x388*x394
      x1061 = x1049*x1060
      x1062 = x1061*x392
      x1063 = -x1057*x993 + x1058*x955*x991 + x1059*x1062 + x392*x988
      x1064 = x1040*x1042 + x1044*x1050 + x1051*x1054 - x1055*x1056 + x1
     &063
      x1065 = x1064*x398
      x1066 = x1065*x395
      x1067 = 0.00289153318944038d0*x1066
      x1068 = x1067*x396*x79
      x1069 = x392*(-x1039 + x1068 - x953 - x958 + x985)
      x1070 = x402*x701
      x1071 = x1070*x699
      x1072 = x1069*x950*x952 + 524288.0d0*x1071 - x52*x723 + x582*x727 
     &- x726*x800 + x730*x947 + x734 - 2097152.0d0*x799 + 8388608.0d0*x8
     &01 - 524288.0d0*x943 - 711097.316705946d0*x946
      x1073 = 4.76837158203125d-7*rho_c
      x1074 = x375 + x403
      x1075 = -x233
      x1076 = x1075 + x232
      x1077 = x1076*x238
      x1078 = -x1077 + 32768.0d0
      x1079 = x480 - x487
      x1080 = x1079*x490
      x1081 = x1080*x498
      x1082 = x1079*x503
      x1083 = x1081 + x1082 - x473 - x477 - x505 - x508
      x1084 = -x1079*x491 + x492
      x1085 = x494*x496
      x1086 = x474 + x478
      x1087 = x1084*x1085 + x1086
      x1088 = x1083*x511 + x1087
      x1089 = 0.5d0*x470
      x1090 = x1088*x1089
      x1091 = -x516 + x518
      x1092 = -x522 + x523
      x1093 = x1092 + x521*(x1090 + x1091)
      x1094 = x1093 + x467
      x1095 = x1094*x204
      x1096 = rho_s*x531
      x1097 = x1096*x185
      x1098 = -gamma_cs*rho_c + x685
      x1099 = -x544 + x545
      x1100 = x1099*x191
      x1101 = x1100*x538
      x1102 = x1098*x536 + 0.320499904512757d0*x1101
      x1103 = x1102*x553
      x1104 = x1097 - x1103
      x1105 = x1104*x557
      x1106 = x1105*x210
      x1107 = rho_s**3
      x1108 = x1107*x44
      x1109 = 4.0d0*x1108
      x1110 = x43*x560
      x1111 = x627*x956
      x1112 = x1111*x221
      x1113 = x80*x956
      x1114 = x10*x662
      x1115 = x630*x698
      x1116 = 2.0d0*x1115
      x1117 = -x584 + x585
      x1118 = x1117*x651
      x1119 = 0.0790071588102608d0*x566
      x1120 = x1107*x180
      x1121 = x1119*x1120
      x1122 = 4.0d0*x1120
      x1123 = x1110*x1122
      x1124 = x1117*x46
      x1125 = x1124*x618
      x1126 = x1121 - x1123 - x1125
      x1127 = x1118*x587 + x1126
      x1128 = x1116*x216 + x1127
      x1129 = x1128*x659
      x1130 = x1114*x1129
      x1131 = x1113 - x1130
      x1132 = x1131*x538
      x1133 = x956*x987
      x1134 = x9*x955
      x1135 = gamma_cc*x220
      x1136 = x1134*x1135*x2
      x1137 = x1041*x1136
      x1138 = 0.000356734471920438d0*x1137
      x1139 = x1130*x627
      x1140 = gamma_cc*x217
      x1141 = x1140*x538
      x1142 = x1128*x219
      x1143 = x1142*x75
      x1144 = x1141*x1143
      x1145 = x1144*x679
      x1146 = -x1133 - x1138 + x1139 + x1145
      x1147 = x1146*x223
      x1148 = x669*x673
      x1149 = x1112 + x1132*x670 + x1147*x1148
      x1150 = x1149*x626
      x1151 = x1117*x588
      x1152 = x1108*x1119
      x1153 = -x1152
      x1154 = 0.25d0*x3
      x1155 = x649*x702
      x1156 = x1154*x1155
      x1157 = 2.56488140124205d0*x562
      x1158 = x1117*x560
      x1159 = x1157*x1158
      x1160 = x1150 + x1151*x3 + x1153 + x1156 + x1159
      x1161 = x1109*x1110 + x1160
      x1162 = x1161*x214
      x1163 = x1104*x709
      x1164 = -x1162 - x1163
      x1165 = x1095 + x1106 + x1164
      x1166 = 0.04375d0*x1095
      x1167 = 0.04375d0*x1106
      x1168 = x1161*x714
      x1169 = 0.04375d0*x1163
      x1170 = -x1168 - x1169
      x1171 = x1166 + x1167 + x1170
      x1172 = -x230
      x1173 = x1172 + x211
      x1174 = x1173*x238
      x1175 = 64.0d0*x1174
      x1176 = x1108*x566
      x1177 = x3*x947
      x1178 = x66 - 1.0d0
      x1179 = x1178**(-2)
      x1180 = x1179*x77
      x1181 = 1d0/x1178
      x1182 = x1181*x83 + 1.0d0
      x1183 = x1180 + x1182
      x1184 = 1d0/x1183
      x1185 = x1182*x82
      x1186 = x1184*x1185
      x1187 = x11*x1186 + 1.0d0
      x1188 = 1d0/x1187
      x1189 = x1184*x1188
      x1190 = 262144.0d0*x1189
      x1191 = x11*x1181
      x1192 = 0.0115661327577615d0*x1191
      x1193 = x586*x800
      x1194 = 2.56488140124205d0*x1193*x46
      x1195 = x43*x800
      x1196 = x1122*x1195
      x1197 = x1121 - x1194 + x1196 + x589
      x1198 = -x1116*x61 + x1197
      x1199 = x1181*x66
      x1200 = x1114*x1199
      x1201 = x1113 - x1198*x1200
      x1202 = x1201*x538
      x1203 = x1133 - x1139
      x1204 = x1138 - x1145 + x1203
      x1205 = x670*x79
      x1206 = x1182*x1184
      x1207 = x1205*x1206
      x1208 = x1111*x1182 + x1192*x1202 - x1204*x1207
      x1209 = x1208*x951
      x1210 = x1108*x1195
      x1211 = log(x1187)
      x1212 = x1045*x3
      x1213 = x1212*x701
      x1214 = x1211*x1213
      x1215 = x1193*x562
      x1216 = 165690.021113256d0*x1176 + x1177*x729 - x1190*x1209 + 8388
     &608.0d0*x1210 + 524288.0d0*x1214 - 5378946.16037756d0*x1215
      x1217 = -x1078*x1165 + x1171*x1175 + x1216
      x1218 = x1217*x248
      x1219 = rho_s*x768
      x1220 = x1219*x742
      x1221 = x705*x764
      x1222 = x274*x796
      x1223 = 7.42981738143299d0*x576
      x1224 = x1223 + 36.0978292789602d0*x770 + 54.281640924821d0*x785
      x1225 = x1224*x764
      x1226 = x1223 + 16.7102894282335d0*x770
      x1227 = x1226*x288
      x1228 = x40*(x1003*x1227 + x1225)
      x1229 = -x1121
      x1230 = x1194 - x1196 + x1229 - x589
      x1231 = x339*x768
      x1232 = 0.267683468607554d0*x1231
      x1233 = x768*x891
      x1234 = rho_s*x1233
      x1235 = x350*x756
      x1236 = x756*x887
      x1237 = rho_s*x1236
      x1238 = x260*x810
      x1239 = x6*x827
      x1240 = x20*x820
      x1241 = 0.00706864485168613d0*x1240
      x1242 = x5*x822
      x1243 = x1239*x1241 - x1241*x1242
      x1244 = rho_s*x1238 + x1243
      x1245 = x308 - 1.0d0
      x1246 = x1245*x315
      x1247 = 2.18054471139857d0*x835
      x1248 = x1247*x5
      x1249 = x1247*x6
      x1250 = x323 - 1.0d0
      x1251 = x1250*x329
      x1252 = x5*x848
      x1253 = x1245*x846
      x1254 = x1253*x862
      x1255 = x6*x848
      x1256 = x1250*x867
      x1257 = x1256*x873
      x1258 = x1246*x1248 - x1249*x1251 + x1252*x1254 - x1255*x1257
      x1259 = x1244 + x1258
      x1260 = x262*x756
      x1261 = x1260*x908
      x1262 = rho_s*x1261
      x1263 = 1.55214407110551d0*x745
      x1264 = 2.18054471139857d0*x834
      x1265 = x839*x926
      x1266 = rho_s*x1265 + x1243
      x1267 = x1220 - x1221*x767 + x1222*x1228 + x1230*x1232 + x337*(x12
     &37 + x1259* x880) + x353*(x1230*x1235 + x1234) + x371*(x1230*x1263
     & + x1262 + x939*(x1258 - x1264*x934 + x1266))
      x1268 = x1267*x253
      x1269 = 0.25d0*x1268
      x1270 = x3*x589
      x1271 = x1109*x1195
      x1272 = x392*x396
      x1273 = x1272*x630
      x1274 = x1123 + x1125 + x1151 + x1229
      x1275 = x1274*x3
      x1276 = 0.316028635241043d0*x1176
      x1277 = -x1276
      x1278 = x1177*x976
      x1279 = 10.2595256049682d0*x1215
      x1280 = 16.0d0*x1210
      x1281 = -x1268 + x1277 - x1278 + x1279 - x1280
      x1282 = -x1275*x964 + x1281
      x1283 = x1282*x963
      x1284 = x1272*x1283
      x1285 = x1040*x79
      x1286 = x955*x987
      x1287 = x1286*x990
      x1288 = x1115*x705
      x1289 = x1268 + x1276 + x1278 - x1279 + x1280
      x1290 = -x1288*x995 + x1289
      x1291 = x1060*x1290
      x1292 = -x1059*x1291 + x1283*x993 + x1287
      x1293 = 0.00289153318944038d0*x1292
      x1294 = x1272*x79
      x1295 = x1294*x398
      x1296 = x1035**5.56d0
      x1297 = x1030*x1296
      x1298 = gamma_cc*x1297
      x1299 = x1041*x663
      x1300 = x1298*x1299
      x1301 = x1051*x1300
      x1302 = x1126 - x1151
      x1303 = x1302*x3
      x1304 = x1117*x947
      x1305 = 0.202643992197415d0*x3
      x1306 = x1304*x1305
      x1307 = x1013*x1117
      x1308 = x1307*x562
      x1309 = x1108*x1110
      x1310 = 16.0d0*x1309
      x1311 = x1222*x381
      x1312 = x1224 - x1227
      x1313 = x1003*x1312
      x1314 = x868*x873
      x1315 = x847*x862
      x1316 = -x1248*x316 + x1249*x330 - x1252*x1315 + x1255*x1314
      x1317 = x1244 + x1316
      x1318 = x302*(-x932 + x933)
      x1319 = x1264*x1318 + x1266 + x1316
      x1320 = x1005*x1221 + x1220 + x1232*x1274 + x1311*x1313 + x337*(x1
     &237 + x1317* x880) + x353*(x1234 + x1235*x1274) + x371*(x1262 + x1
     &263*x1274 + x1319*x939)
      x1321 = x1320*x253
      x1322 = x1277 + x1306 + x1308 + x1310 - x1321
      x1323 = x1303*x999 + x1322
      x1324 = x1323*x996
      x1325 = x1030*x11
      x1326 = x1296*x1325
      x1327 = x1055*x1326
      x1328 = x1324*x1327
      x1329 = x1118*x57
      x1330 = x1276 - x1308 - x1310 + x1321
      x1331 = x1305*x1329 + x1330
      x1332 = x1020*x1288 + x1331
      x1333 = x1027*x1332
      x1334 = x1029**(-2)
      x1335 = x1296*x1334
      x1336 = x1044*x1335
      x1337 = x1333*x1336
      x1338 = x1036*x1287
      x1339 = x1324*x993
      x1340 = x1036*x1339
      x1341 = x1032*x1333
      x1342 = x1036*x1341
      x1343 = x1338 + x1340 - x1342
      x1344 = x1301 + x1328 - x1337 + x1343
      x1345 = x1030*x1344
      x1346 = x1345*x986
      x1347 = x1111*x1273 + x1284*x983 + x1285*x1293 - x1295*x1346
      x1348 = x398*x948
      x1349 = x1347*x1348
      x1350 = 0.125d0*x952
      x1351 = x1349*x1350
      x1352 = 0.25d0*x1213*x402
      x1353 = x1157*x1193
      x1354 = x1152 + x1269 + x1270 + x1271 - x1351 + x1352 - x1353
      x1355 = 0.000267550853940328d0*x70
      x1356 = x1355*x669
      x1357 = x1356 + x82
      x1358 = x1357*x669
      x1359 = x1185 - x1186*x1358 + x1191*x71
      x1360 = x1359*x39
      x1361 = x1360*x7
      x1362 = x1190*x1361
      x1363 = 0.000133775426970164d0*x69
      x1364 = x114*x1363
      x1365 = x132*x1364
      x1366 = 0.00578306637888076d0*x80
      x1367 = x127*x1366
      x1368 = x134*x1367
      x1369 = x114*x115
      x1370 = 0.25d0*gamma_cs
      x1371 = 0.125d0*gamma_ss + x622
      x1372 = x1370 + x1371
      x1373 = x131*x1372
      x1374 = x1367 + x1369*x1373
      x1375 = x136*x1374
      x1376 = x1375*x445
      x1377 = x1365 + x1368 - x1376
      x1378 = x1377*x449
      x1379 = x1378*x97
      x1380 = x1363*x161
      x1381 = x1380*x169
      x1382 = x1366*x159
      x1383 = x1382*x171
      x1384 = -x1370 + x1371
      x1385 = x1384*x168
      x1386 = x115*x161
      x1387 = x1382 + x1385*x1386
      x1388 = x1387*x173
      x1389 = x170*x171
      x1390 = x1388*x1389
      x1391 = x1381 + x1383 - x1390
      x1392 = x1391*x468
      x1393 = x1392*x143
      x1394 = x1379 + x1393
      x1395 = x1394*x39
      x1396 = x1395*x204
      x1397 = 0.25d0*x1396
      x1398 = x201*x202
      x1399 = gamma_cc*x1398
      x1400 = x97*(x113 - x141)
      x1401 = x143*(x156 - x178)
      x1402 = x1400 + x1401
      x1403 = x1402*x209
      x1404 = x1399*x1403
      x1405 = 2.0d0*x1404
      x1406 = rho_c**(-7.66666666666667d0)
      x1407 = x1402*x208
      x1408 = x1406*x1407
      x1409 = x188*x194
      x1410 = x197**(-5)
      x1411 = 0.0220208337265180d0
      x1412 = x1410*x1411
      x1413 = x1409*x1412
      x1414 = x186*x203
      x1415 = x1413*x1414
      x1416 = 0.240374928384568d0*x1408*x1415
      x1417 = x1211*x91
      x1418 = x1417 + x95
      x1419 = x1418*x199
      x1420 = gamma_cc*x202
      x1421 = x193*x551
      x1422 = x194*x542
      x1423 = x1422*x189
      x1424 = x1421*x1423
      x1425 = 0.120187464192284d0*x1424
      x1426 = 2.0d0*x1425 - 2.0d0*x185
      x1427 = x1420*x1426
      x1428 = x1419*x1427
      x1429 = 0.125d0*x39
      x1430 = x1429*x7
      x1431 = x1189*x1359
      x1432 = x1430*x1431
      x1433 = x1432*x214
      x1434 = -x1428 + x1433
      x1435 = -x1397 + x1405 - x1416 + x1434
      x1436 = 0.13125d0*x230
      x1437 = 0.0109375d0*x1396
      x1438 = 0.0875d0*x1404
      x1439 = 0.0105164031168249d0*x1406
      x1440 = x1407*x1415*x1439
      x1441 = 0.0875d0*x185
      x1442 = 0.0105164031168249d0*x1424
      x1443 = x1420*(-x1441 + x1442)
      x1444 = x1419*x1443
      x1445 = x1432*x714
      x1446 = -x1444 + x1445
      x1447 = gamma_cc*(-x1437 + x1438 - x1440 + x1446)
      x1448 = x1436 + x1447 - 0.13125d0*x211
      x1449 = x237*x72
      x1450 = 64.0d0*x1449
      x1451 = x1448*x1450
      x1452 = x247*(-x1078*x1435 + x1173*x1451 + x1362)
      x1453 = x405/x404
      x1454 = x1453**5.56d0
      x1455 = -x388 + 1.0d0
      x1456 = 1d0/x1455
      x1457 = x1453**2.78d0*x82
      x1458 = -x11*x1456*x1457 + 1.0d0
      x1459 = 1d0/(x1454*x77/x1455**2 + x1458)
      x1460 = x1457*x1458
      x1461 = x1459*x1460
      x1462 = x11*x1461 + 1.0d0
      x1463 = 1d0/x1462
      x1464 = x39*x7
      x1465 = x1463*x1464
      x1466 = x11*x71
      x1467 = x1459*(-x1454*x1456*x1466 + x1460 - x1461*x395*(x1040*x135
     &5 + x393))
      x1468 = x1465*x1467
      x1469 = 64.0d0*x1468
      x1470 = 0.001953125d0*rho_c
      x1471 = x1412*x188
      x1472 = x1471*x539
      x1473 = x1407*x1472
      x1474 = x1211*x90
      x1475 = -5.6d0*x240 + 0.0553050111671826d0*x242
      x1476 = x1475 - 2.8d0*x94
      x1477 = 0.35d0*x1474 + x1476
      x1478 = x195*x552
      x1479 = x1410*x1478
      x1480 = 0.00375585825600888d0*x1479
      x1481 = x1477*x1480
      x1482 = x201*x39
      x1483 = x1394*x1482
      x1484 = 0.0109375d0*x1483
      x1485 = 0.0105164031168249d0*x1473 + x1481 + x1484
      x1486 = x1403*x204
      x1487 = x1418*x214
      x1488 = x1486 + x1487
      x1489 = x1488*x238
      x1490 = x1485*x1489
      x1491 = x1077 - 32768.0d0
      x1492 = 0.240374928384568d0*x1478
      x1493 = x1410*x1492
      x1494 = 0.25d0*x1483
      x1495 = x1418*x1493 + 0.240374928384568d0*x1473 + x1494
      x1496 = x1491*x1495
      x1497 = -64.0d0*x1490 + x1496
      x1498 = x203*x248
      x1499 = rho_c*x1498
      x1500 = rho_s*x1410
      x1501 = x1409*x1500
      x1502 = x1411*x1501
      x1503 = x1502*x542
      x1504 = x1407*x1503
      x1505 = x539*x552
      x1506 = x1500*x1505
      x1507 = 0.00751171651201775d0*x1506
      x1508 = -x1477*x1507
      x1509 = 0.000267550853940329d0*x69
      x1510 = x114*x1509
      x1511 = x132*x1510
      x1512 = 0.0115661327577615d0*x80
      x1513 = x127*x1512
      x1514 = x134*x1513
      x1515 = x132*x1369
      x1516 = x1513 + x1515
      x1517 = x136*x1516
      x1518 = x1511 + x1514 - x1517*x445
      x1519 = x1518*x449
      x1520 = x1519*x97
      x1521 = x1512*x159
      x1522 = x120 - x121 - x122
      x1523 = x1522*x168
      x1524 = -x1386*x1523 + x1521
      x1525 = x1524*x511
      x1526 = x1521*x171
      x1527 = x1509*x161
      x1528 = x1527*x169
      x1529 = x1526 + x1528
      x1530 = -x1525 + x1529
      x1531 = x1530*x468
      x1532 = x143*x1531
      x1533 = x1520 - x1532
      x1534 = x1482*x1533
      x1535 = -0.0210328062336497d0*x1504 + x1508 + 0.0109375d0*x1534
      x1536 = x1489*x1535
      x1537 = 0.480749856769136d0*x1505
      x1538 = x1500*x1537
      x1539 = -x1418*x1538 - 0.480749856769136d0*x1504 + 0.25d0*x1534
      x1540 = x1491*x1539
      x1541 = -64.0d0*x1536 + x1540
      x1542 = x200*x3
      x1543 = x1542*x209
      x1544 = x1543*x207
      x1545 = x199*x229
      x1546 = -x1544 + x1545
      x1547 = 4.2d0*x211
      x1548 = 4.2d0*x230
      x1549 = -x1548
      x1550 = x1475 + 0.35d0*x241 + 2.8d0*x49
      x1551 = x1550*x199
      x1552 = x212*(-2.8d0*x1544 + x1551)
      x1553 = x1547 + x1549 - x1552
      x1554 = 1d0/tau_c
      x1555 = gamma_cc*x1554
      x1556 = x1555*x3
      x1557 = x1553*x1556
      x1558 = x1078*x1546 + x1173*x1557
      x1559 = 9.5367431640625d-7*x247
      x1560 = x236*x72
      x1561 = x1560*x3
      x1562 = x1559*x1561
      x1563 = x97**(-2)
      x1564 = 0.104540392248826d0*x452
      x1565 = 1d0/x623
      x1566 = x423*x99
      x1567 = 0.0784052941866196d0*x1563
      x1568 = x102*x18
      x1569 = 3.09205213955878d0*x22
      x1570 = x107*x24
      x1571 = x422*(3.15315353825457d0*x100 + x104*x1569 + 0.91022716523
     &1986d0*x1568 + 2.9372772710225d0*x1570)
      x1572 = x1563*x456
      x1573 = x420**2/(x109**4*x110**2)
      x1574 = x420*x421*(4.72973030738186d0*x100 + x106 + 1.092272598278
     &38d0*x1568 + 5.03533246461d0*x1570)/x109**3
      x1575 = x410 + x414 + x433 - x446
      x1576 = x135**(-2)
      x1577 = x1576/x139**2
      x1578 = x2*x39
      x1579 = 0.5d0*x1578
      x1580 = x97**(-4.33333333333333d0)
      x1581 = 0.17991762067629d0*x1580
      x1582 = x1581*x80
      x1583 = 0.0925290620620922d0*x80
      x1584 = x1583*x407
      x1585 = x132*x444
      x1586 = x134*x1585
      x1587 = 0.015421510343682d0*x80
      x1588 = x1587*x411
      x1589 = 0.0462645310310461d0*x119
      x1590 = x69*x73
      x1591 = 0.00214040683152263d0*x435
      x1592 = x117*x119
      x1593 = x1592*x426
      x1594 = x137*x1593
      x1595 = x126*x73
      x1596 = x138*x1576*x1595*x443
      x1597 = x97**(-4.33333333333333d0)
      x1598 = x1597*x428
      x1599 = x1580*x428
      x1600 = exp(4.0000000000000009d0*x112)
      x1601 = x426**2
      x1602 = x1597*x1601
      x1603 = x1589*x1600*x1602
      x1604 = 0.0231322655155231d0*x427
      x1605 = 6.73880859569814d0*x2
      x1606 = 0.313621176746478d0*x1605
      x1607 = 97.4090910340024d0*x73
      x1608 = -x1566*x1606 - x1571*x425 - x1573*x1607*x424 + x1574*x425 
     &+ 0.209080784497652d0*x416
      x1609 = x1597*x1608
      x1610 = x430*x432
      x1611 = x97**(-6.66666666666667d0)
      x1612 = x97**(-6.66666666666667d0)
      x1613 = x128*x427
      x1614 = 0.00856162732609051d0*x69
      x1615 = x137*x1611
      x1616 = 0.00142693788768175d0*x69
      x1617 = 0.00321061024728394d0*x69
      x1618 = x1611*x440
      x1619 = x134*x136
      x1620 = x133*x1619
      x1621 = x124*x451
      x1622 = x459 + x460*(x100*x1567*x423 + x125*x1575*x1577*x1579*x447
     & - x1563*x1564 *x454 + x1565*x1566*x1567 + x1571*x1572 + x1572*x15
     &73*x28 - x1572 *x1574 + x1621*(-x125*x127*x1589*x1590*x429*x444 + 
     &x134*x1582 - x1584*x1586 - x1586*x1588 + x1596*(x1584 + x1588 + x1
     &591*x1594* x69 + x409*x428 + 0.00428081366304526d0*x436 + 0.000713
     &468943840876d0*x438) + x1610*(x1581 + 0.0925290620620922d0*x1598 +
     & 0.015421510343682d0*x1599 - x1602* x1604 + x1603 - x1604*x1609) +
     & x1620*(-x1582 - x1583*x1598 - x1587*x1599 - x1593*x1614*x1615 - x
     &1594*x1612*x1616 + x1601*x1618 + x1602*x1613 - x1603*x80 + x1608*x
     &1618 + x1609*x1613 - 0.0107020341576131d0*x1611*x430 - 0.003448433
     &22856423d0*x1612* x430 - x1600*x1601*x1615*x1617/x118**3) + 0.0925
     &290620620922d0* x407*x431 + 0.015421510343682d0*x411*x431))
      x1623 = x143**(-4.33333333333333d0)
      x1624 = 0.17991762067629d0*x1623
      x1625 = x1624*x80
      x1626 = x1625*x171
      x1627 = 0.0925290620620922d0*x471
      x1628 = 0.015421510343682d0*x475
      x1629 = x1583*x471
      x1630 = x169*x174
      x1631 = x1630*x510
      x1632 = x1587*x475
      x1633 = x173*x510
      x1634 = 0.0462645310310461d0*x164
      x1635 = x159*x1590*x1634*x165
      x1636 = 0.00428081366304526d0*x504
      x1637 = 0.000713468943840876d0*x507
      x1638 = x488*x501
      x1639 = 0.00214040683152263d0*x500
      x1640 = x1639*x69
      x1641 = x172**(-2)
      x1642 = x166*x73
      x1643 = x160*x1641*x1642*x171
      x1644 = x1643*x510
      x1645 = x143**(-4.33333333333333d0)
      x1646 = x488**2
      x1647 = x1645*x1646
      x1648 = exp(4.0000000000000009d0*x155)
      x1649 = x1634*x1648
      x1650 = x1647*x1649
      x1651 = x1645*x499
      x1652 = x1623*x499
      x1653 = 0.0231322655155231d0*x490
      x1654 = 0.209080784497652d0*x479
      x1655 = x145*x484
      x1656 = x148*x18
      x1657 = x151*x24
      x1658 = x483*(3.15315353825457d0*x146 + x149*x1569 + 0.91022716523
     &1986d0*x1656 + 2.9372772710225d0*x1657)
      x1659 = x1658*x486
      x1660 = x481**2/(x152**4*x153**2)
      x1661 = x1607*x1660*x485
      x1662 = x481*x482*(4.72973030738186d0*x146 + x150 + 1.092272598278
     &38d0*x1656 + 5.03533246461d0*x1657)/x152**3
      x1663 = x1662*x486
      x1664 = -x1606*x1655 + x1654 - x1659 - x1661 + x1663
      x1665 = x1645*x1653
      x1666 = x1624 - x1664*x1665
      x1667 = x128*x490
      x1668 = x143**(-6.66666666666667d0)
      x1669 = x1668*x502
      x1670 = x1638*x1668
      x1671 = x143**(-6.66666666666667d0)
      x1672 = x1638*x1671
      x1673 = x158*x1617*x1648*x1668/x163**3
      x1674 = x1645*x1667
      x1675 = 0.00344843322856423d0*x1671*x494
      x1676 = 0.0107020341576131d0*x1668*x494
      x1677 = -x1625 + x1664*x1669 + x1664*x1674 - x1675 - x1676
      x1678 = x1086 + x497 - x512
      x1679 = x1641/x176**2
      x1680 = x165*x1679
      x1681 = x1578*x1680*x514
      x1682 = x143**(-2)
      x1683 = x1682*x517
      x1684 = x1658*x1683
      x1685 = x1564*x1682*x515
      x1686 = 0.0784052941866196d0*x1682
      x1687 = x1565*x1655*x1686
      x1688 = x146*x1686*x484
      x1689 = x1662*x1683
      x1690 = x1660*x1683*x28
      x1691 = x1684 - x1685 + x1687 + x1688 - x1689 + x1690
      x1692 = x520 + x521*(x1089*(x1085*(-x1647*x1653 + x1650 + 0.092529
     &0620620922d0* x1651 + 0.015421510343682d0*x1652 + x1666) + x1626 +
     & x1627*x495 + x1628*x495 - x1629*x1631 - x1631*x1632 - x1633*x1635
     &*x493 + x1644 *(x1629 + x1632 + x1636 + x1637 + x1638*x1640 + x473
     &*x499) + x511 *(-x1583*x1651 - x1587*x1652 - x1614*x1670 - x1616*x
     &1672 + x1646* x1669 - x1646*x1673 + x1647*x1667 - x1650*x80 + x167
     &7)) + x1678* x1681 + x1691)
      x1693 = x204*(x1622 + x1692)
      x1694 = x526*x529
      x1695 = x526*x558
      x1696 = x200*x203
      x1697 = x1696*x561
      x1698 = x186*x44
      x1699 = x1698*(10.0d0*x187 + 94.92d0*x46 + 5.22d0)
      x1700 = x1421*x550
      x1701 = 0.60093732096142d0*x195
      x1702 = rho_s*x546
      x1703 = x197**(-2)
      x1704 = x188*x338
      x1705 = x1703*x1704
      x1706 = x1705*x550
      x1707 = x1706*(-x1701*x535 - 0.400624880640947d0*x1702*x543 + 1.40
     &218708224331d0 *x191*x539)
      x1708 = x1406*x191
      x1709 = x5**(-3.33333333333333d0)
      x1710 = 3.11111111111111d0*x4
      x1711 = x1709*x1710
      x1712 = x6**(-3.33333333333333d0)
      x1713 = x1710*x1712
      x1714 = x553*(-gamma_ss*x536 - 0.240374928384568d0*rho_s*x1708*(x1
     &711 + x1713 - 2.66666666666667d0*x544 + 2.66666666666667d0*x545) +
     & 2.99133244211907d0*x1702*x1708 - 1.28199961805103d0*x1702*x535* x
     &542 - 6.35658143950302d0*x194*x543 + 4.48699866317861d0*x535* x539
     &)
      x1715 = x1699 - 2.0d0*x1700*x533 + x1707 + x1714
      x1716 = 2.0d0*x198
      x1717 = x1716*x180
      x1718 = x1717*x203
      x1719 = x198*x555
      x1720 = x203*x44
      x1721 = x1720*x210
      x1722 = x1719*x1721
      x1723 = x599*x744
      x1724 = x43*x45
      x1725 = x13*x56
      x1726 = rho_c**(-6.33333333333333d0)*x1724*x1725
      x1727 = x615/rho_c**7
      x1728 = x57*x586
      x1729 = x1727*x1728
      x1730 = x51*x586
      x1731 = rho_c**(-3.33333333333333d0)
      x1732 = rho_s*x1731
      x1733 = x1725*x1732
      x1734 = x1730*x1733
      x1735 = x13*x744
      x1736 = x1735*x56
      x1737 = x1736*x52
      x1738 = x181*x45
      x1739 = x1738*x566
      x1740 = x5**(-0.666666666666667d0)
      x1741 = 0.854960467080683d0*x4
      x1742 = x1740*x1741
      x1743 = x6**(-0.666666666666667d0)
      x1744 = x1741*x1743
      x1745 = x1742 + x1744
      x1746 = x1745 - 5.1297628024841d0*x584 + 5.1297628024841d0*x585
      x1747 = rho_s*x180
      x1748 = x1746*x1747
      x1749 = x1748*x947
      x1750 = x1565*x597
      x1751 = x1750*x257
      x1752 = x569*x597
      x1753 = rho_c**(-2.16666666666667d0)*x24
      x1754 = x596*(1.44868929752102d0*x1735 + 1.40779759833938d0*x1753 
     &+ 1.06404211235975d0*x788 + 0.452125560575033d0*x850)
      x1755 = x1754*x32
      x1756 = x28*x593**2/(x33**4*x594**2)
      x1757 = x1756*x32
      x1758 = x569*x580
      x1759 = x1758*x52
      x1760 = x53*x580
      x1761 = x1760*x563
      x1762 = x579*(1.46302435997558d0*x1735 + 1.91958077938847d0*x1753 
     &+ 0.571745641451468d0*x788 + 0.455583412166236d0*x850)
      x1763 = 1.16964467949104d0*x582
      x1764 = x1730*x590
      x1765 = x1760*x1764
      x1766 = x577**2/(x54**4*x55**2)
      x1767 = x1766*x582
      x1768 = x593*x595*(2.17303394628153d0*x569 + 0.542550672690039d0*x
     &574 + 1.41872281647967d0*x575 + 2.41336731143894d0*x576)/x33**3
      x1769 = x1768*x32
      x1770 = x560*x586
      x1771 = x1727*x1770
      x1772 = x1724*x181
      x1773 = x1772*x560
      x1774 = x577*x578*(2.19453653996337d0*x569 + 0.546700094599483d0*x
     &574 + 0.76232752193529d0*x575 + 3.29070990752309d0*x576)/x54**3
      x1775 = x1727*x1746
      x1776 = x1775*x560
      x1777 = x586*x613
      x1778 = x1777*x616
      x1779 = x43*x613
      x1780 = x1779*x562
      x1781 = x227*x40*x698*x7
      x1782 = x1698*x955
      x1783 = x1781*x1782
      x1784 = 2.0d0*x635
      x1785 = 2.0d0*x634
      x1786 = x5**(-1.33333333333333d0)
      x1787 = 0.333333333333333d0*x4
      x1788 = x1786*x1787
      x1789 = x6**(-1.33333333333333d0)
      x1790 = x1787*x1789
      x1791 = -x1788 - x1790
      x1792 = x1747*(-x1784 + x1785 + x1791)
      x1793 = x227*x464*x8
      x1794 = x604*x605
      x1795 = x1794*x606
      x1796 = x1754*x592
      x1797 = 0.172586075861435d0*x1723
      x1798 = x1768*x592
      x1799 = x1750*x600
      x1800 = 0.129439556896076d0*x1752
      x1801 = x1756*x592
      x1802 = -x1796 + x1797 + x1798 - x1799 - x1800 - x1801
      x1803 = x47*(x1565*x1795*x609 - x16*x1794*(3.75398943273192d0*x569
     & + 0.688088619397151d0*x574 + 2.91521471421918d0*x575 + 4.48597123
     &813148d0*x576)/x26**3 + x16*x28*x604**2/(x26**4*x29**2 ) + 0.06223
     &0323235858d0*x1795*x569 + x1802 + x607*( 2.50265962182128d0*x1735 
     &+ 2.6168165555767d0*x1753 + 2.18641103566438d0*x788 + 0.5734071828
     &30959d0*x850) - 0.0829737643144773d0*x610*x744)
      x1804 = x185*x685*x698
      x1805 = x1804*x625*x696
      x1806 = x222**(-2)
      x1807 = x1806/x226**2
      x1808 = 21.170591578193d0*x72
      x1809 = x1807*x1808
      x1810 = x1809*x696
      x1811 = x2*x630
      x1812 = x1810*x1811*(x629 - x639 - x671 - x695)
      x1813 = 0.0899588103381452d0*x632
      x1814 = rho_c**(-5.33333333333333d0)
      x1815 = x1814*x631
      x1816 = 0.0719670482705162d0*x1815
      x1817 = x1816*x636
      x1818 = 0.0308430206873641d0*x221
      x1819 = x636**2
      x1820 = rho_c**(-6.33333333333333d0)*x186
      x1821 = x1819*x1820*x9
      x1822 = 2.66666666666667d0*x635
      x1823 = 2.66666666666667d0*x634
      x1824 = 0.444444444444444d0*x4
      x1825 = x1786*x1824
      x1826 = x1789*x1824
      x1827 = x1825 + x1826
      x1828 = x1815*(x1822 - x1823 + x1827)
      x1829 = x667*x669
      x1830 = 0.0539752862028871d0*x627
      x1831 = 0.0308430206873641d0*x636
      x1832 = x663*x685
      x1833 = x1832*x220
      x1834 = x1831*x1833
      x1835 = x221*x223
      x1836 = x1835*x669
      x1837 = x219*x76
      x1838 = x1837*x668
      x1839 = 0.000713468943840876d0*x689
      x1840 = x661*x663
      x1841 = 0.185058124124184d0*x1840
      x1842 = x678*x684
      x1843 = x1806*x673
      x1844 = x1837*x1843*x692
      x1845 = x1813*x80
      x1846 = x1817*x80
      x1847 = 0.0308430206873641d0*x80
      x1848 = x1821*x1847
      x1849 = x1828*x80
      x1850 = 0.0115661327577615d0*x1849
      x1851 = x627*x658
      x1852 = x1840*x1851*x659
      x1853 = 0.431802289623097d0*x1852
      x1854 = 16.0d0*x64
      x1855 = exp(x1854*x216)
      x1856 = x658**2
      x1857 = x1856*x219
      x1858 = x7**(-6)
      x1859 = 1408.04281369971d0*x73
      x1860 = x1858*x1859
      x1861 = x1860*x79
      x1862 = 1.48046499299348d0*x1855*x1857*x1861
      x1863 = 0.740232496496738d0*x1856*x1860*x660
      x1864 = x2*x74
      x1865 = x1864*x661
      x1866 = x1865*x632
      x1867 = x1866*x989
      x1868 = 0.246744165498913d0*x1867*x658*x659
      x1869 = x1788 + x1790
      x1870 = x1747*(x1869 - 2.0d0*x634 + 2.0d0*x635)
      x1871 = x185*x630
      x1872 = x1871*x650
      x1873 = x1736*x652
      x1874 = x58*x651
      x1875 = 5.33333333333333d0*x216
      x1876 = x636*x649
      x1877 = x1698*x9
      x1878 = 17.3157558993759d0*x1766
      x1879 = x1762*x653
      x1880 = 0.00341378571249706d0*x1733
      x1881 = x1774*x653
      x1882 = 0.0394081882442864d0*x1758
      x1883 = 2.99999988448829d0*x1760
      x1884 = 8.0d0*x562
      x1885 = x1779*x1884
      x1886 = 5.1297628024841d0*x616
      x1887 = x1777*x1886
      x1888 = 0.00532388859905012d0*x1726
      x1889 = 0.395035794051304d0*x1739
      x1890 = 0.40528798439483d0*x1728
      x1891 = x1727*x1890
      x1892 = 20.0d0*x1772
      x1893 = x1892*x560
      x1894 = 20.5190512099364d0*x1727
      x1895 = x1770*x1894
      x1896 = 4.67857871796416d0*x1761
      x1897 = -x1776 + x1802 - x1803 + x1885 - x1887 + x1888 + x1889 - x
     &1891 - x1893 + x1895 - x1896
      x1898 = x1748*x1874 + 2.0d0*x1870*x646 + 4.0d0*x1872*x657 + 0.0008
     &87314766508353d0*x1873 + x1875*x1876*x1877 - x1878*x653 - 0.584822
     &33974552d0*x1879 - x1880*x654 + 0.58482233974552d0*x1881 - x1882*x
     &652 + x1883*x655 + x1897
      x1899 = x1898*x665
      x1900 = x542*x674
      x1901 = x1406*x69
      x1902 = x1901*x663
      x1903 = x1902*x687
      x1904 = rho_c**(-8.66666666666667d0)
      x1905 = x1819*x1864*x189*x1904*x69
      x1906 = 0.888888888888889d0*x4
      x1907 = x1786*x1906
      x1908 = x1789*x1906
      x1909 = x1901*(x1907 + x1908 - 5.33333333333333d0*x634 + 5.3333333
     &3333333d0*x635 )
      x1910 = x1141*x1842
      x1911 = 20353.1779648712d0/x1**3
      x1912 = x1911/x7**8
      x1913 = x1912*x676
      x1914 = 0.0513697639565431d0*x1855/x218**3
      x1915 = x217*x678*x686
      x1916 = x1858*x73
      x1917 = x1916*x542
      x1918 = x1148*x223
      x1919 = x7*(x1205*(x1845 - x1846 + x1848 + x1850 + x1853 + x1862 -
     & x1863 - x1868 - x1899) + x1813*x221 - x1817*x221 + x1818*x1821 + 
     &x1828*x672 - x1829*x1830 - x1830*x1836*x692 + x1834*x632*x667 + x1
     &834*x633* x693 + 0.0231322655155231d0*x1838*x693 + x1844*(-x1831*x
     &643 - x1839*x687 + x1841*x658*x660 + 0.00428081366304526d0*x1842*x
     &677 + 0.00124857065172153d0*x675 + 0.0539752862028871d0*x987) + x1
     &918*( -0.000133775426970164d0*x1833*x1909 - x1845 + x1846 - x1848 
     &- x1850 - x1853 - x1856*x1913*x1914 + 0.017123254652181d0*x1857* x
     &1912*x677 - x1862 + x1863 + x1868 + x1898*x680*x683 + x1899 - 0.00
     &353761684654434d0*x1900 + 0.00332952173792409d0*x1903 - 0.00118911
     &490640146d0*x1905*x220 - 0.0199771304275445d0*x1910 + 0.0114155031
     &01454d0*x1915*x1917*x219*x658))
      x1920 = x121*x625
      x1921 = -0.345172151722869d0*x1723 - 0.0106477771981002d0*x1726 + 
     &0.810575968789659d0*x1729 - 0.00682757142499412d0*x1734 + 0.001774
     &62953301671d0*x1737 - 0.790071588102608d0*x1739 + 0.03950357940513
     &04d0*x1749 + 0.258879113792152d0*x1751 + 0.258879113792152d0*x1752
     & + 4.0d0*x1755 + 4.0d0*x1757 - 0.0788163764885729d0*x1759 + 9.3571
     &5743592833d0*x1761 - x1762* x1763 + x1763*x1774 + 5.99999976897657
     &d0*x1765 - 34.6315117987517d0*x1767 - 4.0d0*x1769 - 41.03810241987
     &28d0*x1771 + 40.0d0*x1773 + 2.0d0*x1776 + 10.2595256049682d0*x1778
     & - 16.0d0* x1780 + 0.666666666666667d0*x1783 + x1792*x1793 + 2.0d0
     &*x1803 + x1805 + 0.25d0*x1812 + x1919*x1920
      x1922 = x185*x188
      x1923 = x44*x532
      x1924 = 4.0d0*x188
      x1925 = x203*x645
      x1926 = x198*x212
      x1927 = x1926*x704
      x1928 = x1921*x214 + x1925*x708*(-x1700*x1924*x3 + x1715 + 6.0d0*x
     &1922 + 4.0d0* x1923) + 4.0d0*x1927*x707
      x1929 = 0.13125d0*x529
      x1930 = x709*x719 + x715
      x1931 = 96.0d0*x3
      x1932 = x1715*x557
      x1933 = 0.0875d0*x533
      x1934 = 8.0d0*x1921*x714 + 32.0d0*x1927*x719 + 16.0d0*x709*(0.0437
     &5d0*x1699 - x1700*x1933 + 0.04375d0*x1707 + 0.04375d0*x1714 + x185
     &*(0.59325d0 *x182 + 0.228375d0*x187 + 0.13125d0*x46 + 0.139125d0) 
     &+ 0.175d0* x1923 - 0.175d0*x3*x554)
      x1935 = x231*x238
      x1936 = 524288.0d0*x724
      x1937 = x1766*x653
      x1938 = x1733*x654
      x1939 = x1748*x728
      x1940 = x1758*x652
      x1941 = x1760*x655
      x1942 = -723878.468329919d0*x1723 - 22330.0072465503d0*x1726 + 169
     &9901.01409917d0*x1729 - 1656900.21113256d0*x1739 + 542908.85124743
     &9d0*x1751 + 542908.851247439d0*x1752 + 8388608.0d0 *x1755 + 838860
     &8.0d0*x1757 + 19623381.431072d0*x1761 - 8388608.0d0*x1769 - 860631
     &38.566041d0*x1771 + 83886080.0d0*x1773 + 4194304.0d0*x1776 + 21515
     &784.6415103d0*x1778 - 33554432.0d0* x1780 + 1398101.33333333d0*x17
     &83 + 1048576.0d0*x1792*x702 + 4194304.0d0*x1803 + 2097152.0d0*x180
     &5 + 524288.0d0*x1812 - 3721.66787442505d0*x1873 + 2452922.678884d0
     &*x1879 - 2452922.678884d0*x1881 + x1919*x1936 + 72627544.2317758d0
     &*x1937 + 14318.4550690693d0*x1938 - 82845.0105566281d0*x1939 + 165
     &289.921585764d0*x1940 - 12582911.5155088d0*x1941
      x1943 = 3.0d0*x247
      x1944 = 2.68099692748912d0*x245*x744
      x1945 = 4.02149539123368d0*x737
      x1946 = 0.673851049238073d0*mu**2*x193*x341
      x1947 = x1731*x193
      x1948 = 4.82889266566159d0*x1947
      x1949 = 0.00464728244110338d0*x893
      x1950 = x43*x798
      x1951 = x586*x798
      x1952 = x1775*x800
      x1953 = 0.000887314766508353d0*x1737
      x1954 = x51*x58
      x1955 = x1748*x1954
      x1956 = x1878*x582
      x1957 = 0.58482233974552d0*x582
      x1958 = x1762*x1957
      x1959 = x1730*x1880
      x1960 = x1774*x1957
      x1961 = x1882*x52
      x1962 = x1764*x1883
      x1963 = x1796 - x1797 - x1798 + x1799 + x1800 + x1801 + x1803 - x1
     &888 - x1889 + x1891 + x1896 + x1953 + x1955 - x1956 - x1958 - x195
     &9 + x1960 - x1961 + x1962
      x1964 = x1193*x1894 + x1884*x1950 - x1886*x1951 - x1892*x800 - x19
     &52 + x1963
      x1965 = 4.13905085628136d0*x745
      x1966 = 0.181712059283214d0*x358*x839
      x1967 = rho_c**(-3.66666666666667d0)
      x1968 = 3.61230841029072d0*x360
      x1969 = x12*x1968*x362
      x1970 = x186*x1969
      x1971 = x1967*x1970
      x1972 = x1970*x768
      x1973 = x186*x627
      x1974 = 36.3424118566428d0*x1973*x925
      x1975 = 43.6108942279714d0*x921*x927
      x1976 = 2.90739294853142d0*x772*x934
      x1977 = 0.299209d0*x348*x929
      x1978 = x1968*x254*x920*x930
      x1979 = 2.42282745710952d0*x364*x839
      x1980 = 14.5369647426571d0*x834*x922
      x1981 = x254*x361*x923*(-0.156676175559749d0*x1735 + 0.62002856118
     &1324d0*x850)
      x1982 = 5.0d0*x4
      x1983 = x1982*x272
      x1984 = x1982*x273
      x1985 = x302*x772
      x1986 = 0.726848237132856d0*x1985*(x1983 + x1984 - 6.0d0*x932 + 6.
     &0d0*x933)
      x1987 = 3.63424118566428d0*x316
      x1988 = x1973*x302
      x1989 = x1987*x1988
      x1990 = x1242*x820
      x1991 = 0.0376994392089927d0*x935
      x1992 = x1990*x1991*x819
      x1993 = 0.00942485980224818d0*x834
      x1994 = x1993*x824
      x1995 = 3.63424118566428d0*x330
      x1996 = x1988*x1995
      x1997 = 1.45369647426571d0*x1985
      x1998 = x1997*x877
      x1999 = 0.181712059283214d0*x840
      x2000 = x1999*x317
      x2001 = x1239*x820
      x2002 = x2001*x831
      x2003 = x1991*x2002
      x2004 = x1993*x829*x831
      x2005 = x1997*x843
      x2006 = x1999*x331
      x2007 = 0.0115260005177981d0*x744
      x2008 = 0.0201705009061467d0*x627
      x2009 = 0.00288150012944953d0*x1731
      x2010 = x186/x304
      x2011 = 0.0115260005177981d0*x632
      x2012 = 0.817704266774463d0*x19
      x2013 = x2012*x304*x823*(-x2007 + x2008*x852 + x2009*x852 - x2010*
     &x2011)
      x2014 = x186/x319
      x2015 = x2012*x829*(x2007 + x2008*x870 + x2009*x870 + x2011*x2014)
     &
      x2016 = x821*x845
      x2017 = x2016*x863
      x2018 = x819*x820
      x2019 = 0.0141372897033723d0*x19
      x2020 = x2017*x2018*x2019*x304
      x2021 = x847*x863
      x2022 = 4.36108942279713d0*x841
      x2023 = x2021*x2022*x5
      x2024 = 1.09027235569928d0*x835
      x2025 = x2024*x847*x864
      x2026 = x826*x866
      x2027 = x2026*x874
      x2028 = x2019*x2027*x319*x820*x831
      x2029 = x2022*x6*x868*x874
      x2030 = x2024*x868*x875
      x2031 = 0.0582386976490866d0*x850
      x2032 = 0.219734258381682d0*x1735
      x2033 = x2032*x306
      x2034 = x18*x768
      x2035 = 0.116477395298173d0*x2034
      x2036 = x13*x306
      x2037 = x2036*x852
      x2038 = 0.384534952167943d0*x627
      x2039 = 0.0549335645954204d0*x1731
      x2040 = 0.0582386976490866d0*x18*x740
      x2041 = 0.219734258381682d0*x632
      x2042 = x304*x849*(-x2010*x2036*x2041 - x2010*x2040*x310 - x2031*x
     &310 - x2033 + x2035*x853 + x2037*x2038 + x2037*x2039)
      x2043 = x312**(-3)
      x2044 = 0.0698864371789039d0*x850
      x2045 = 0.329601387572523d0*x13
      x2046 = 0.0698864371789039d0*x574
      x2047 = 0.329601387572523d0*x569
      x2048 = x2046*x310 + x2047*x306
      x2049 = x309*x848
      x2050 = x2043*x2049*x314*x864*(-x2044*x853 - x2045*x856 + x2048)
      x2051 = x2032*x321
      x2052 = x13*x321
      x2053 = x2052*x870
      x2054 = x319*x869*(x2014*x2040*x325 + x2014*x2041*x2052 + x2031*x3
     &25 + x2035* x871 + x2038*x2053 + x2039*x2053 + x2051)
      x2055 = x326**(-3)
      x2056 = x2046*x325 + x2047*x321
      x2057 = x324*x848
      x2058 = x2055*x2057*x328*x875*(x2044*x871 + x2045*x872 + x2056)
      x2059 = 0.00619637658813783d0*x756
      x2060 = 0.455740507457808d0*x569
      x2061 = -0.151913502485936d0*x1735*x264 + 0.00418159828868294d0*x1
     &735 + 0.00197049465647014d0*x1947 - x263*x756 + 0.0259624262672375
     &d0* x264*x850 + 0.0375734556469842d0*x850
      x2062 = x751*(-x2060*(x895 - x897 + x898 + x899) + x2061)
      x2063 = rho_c**(-5.0d0)
      x2064 = x256*x901
      x2065 = -x1261*x254 + 1.3157433081915d0*x2063*x344*x909 - 1.052594
     &6465532d0* x2064*x910 + 0.526297323276602d0*x896*x902
      x2066 = 12.0d0*x370
      x2067 = x349*x888
      x2068 = 3.15778393965961d0*x2067
      x2069 = 2.10518929310641d0*x905
      x2070 = rho_c**(-5.66666666666667d0)*x186
      x2071 = x2064*x343
      x2072 = 0.211916079314314d0*x2070*x345 - 0.133841734303777d0*x2071
     &*x741 - 0.074356519057654d0*x346*x768 + 0.111534778586481d0*x893*x
     &902
      x2073 = 12.0d0*x352
      x2074 = 0.701729764368802d0*x1000*x291*x889
      x2075 = rho_c**(-5.33333333333333d0)
      x2076 = 0.159903339455843d0*x186*x2075*x884
      x2077 = 1.75432441092201d0*x186*x2063*x292
      x2078 = 0.0799516697279215d0*x1001*x744*x883
      x2079 = 0.350864882184401d0*x291
      x2080 = x1001*x2079*x348
      x2081 = -0.01915695d0*x1260 + 0.00836319657736588d0*x1735 + 0.0039
     &4098931294027d0*x1947 + 0.0751469112939684d0*x850
      x2082 = x2081*x256*x378
      x2083 = x2082*x881
      x2084 = 0.00910930363347549d0*rho_c**(-3.66666666666667d0)*x379
      x2085 = 0.133252782879869d0*x1731*x378*x884
      x2086 = x1236*x378
      x2087 = 0.00495710127051027d0*x333*x768
      x2088 = 0.0037178259528827d0*x1007*x760
      x2089 = 24.0d0*x806
      x2090 = 48.0d0*x186
      x2091 = 2.25322953511185d0*x296
      x2092 = x295*x814
      x2093 = -x1989 + x1992 - x1994 - x1996 - x1998 + x2000 - x2003 - x
     &2004 + x2005 + x2006 - x2013 + x2015 - x2020 + x2023 - x2025 - x20
     &28 - x2029 - x2030 - x2042 - x2050 + x2054 - x2058
      x2094 = x880*(-4.50645907022371d0*x1731*x186*x2092*x296 - x180*x81
     &1 - x2089*x298 - x2090*x297*x348*x806 + x2090*x756*x809 - x2091*x2
     &54*x806*x815 + x2093 - 0.751076511703951d0*x257*x813*x814 - 0.1549
     &12426780983d0* x270*x813 - x807*(-1.99883265211535d0*x1735 + 0.917
     &202013581841d0 *x850))
      x2095 = 12.0d0*x336
      x2096 = 0.803050405822664d0*x339
      x2097 = x2096*x341
      x2098 = 7.85204841248826d0*x740
      x2099 = 4.28293549772087d0*x1231
      x2100 = x1735*x281
      x2101 = 5.57009647607783d0*x2100
      x2102 = rho_c**(-4.33333333333333d0)
      x2103 = x764**2
      x2104 = x2103*x286
      x2105 = mu*x13*x186*x2102*x2104
      x2106 = 33.420578856467d0*x2105
      x2107 = 6.0d0*x762
      x2108 = 6.0d0*x763
      x2109 = x5**(-1.33333333333333d0)
      x2110 = x2109*x4
      x2111 = x6**(-1.33333333333333d0)
      x2112 = x2111*x4
      x2113 = x2110 + x2112
      x2114 = -x2107 + x2108 + x2113
      x2115 = rho_s*x2114
      x2116 = x2115*x627*x774
      x2117 = 5.57009647607783d0*x2116
      x2118 = x1731*x765*x774
      x2119 = 11.1401929521557d0*x2118
      x2120 = 2.16703006958462d0*x1753
      x2121 = x24*x280
      x2122 = 2.476605793811d0*x2121
      x2123 = rho_c**(-3.16666666666667d0)*x2115*x2122
      x2124 = 9.90642317524398d0*x2103
      x2125 = rho_c**(-4.16666666666667d0)*x186*x2124*x24*x277
      x2126 = rho_c**(-3.16666666666667d0)
      x2127 = x2126*x765
      x2128 = x2122*x2127
      x2129 = x2120 + x2123 + x2125 - x2128
      x2130 = x782 + x784 + x786 - x787 - x791
      x2131 = x281*x783
      x2132 = 2.0d0*x284
      x2133 = x2131*x2132
      x2134 = 12.0326097596534d0*x2100
      x2135 = x278*x788
      x2136 = x287/x283**2
      x2137 = x2131*x2136
      x2138 = x22*x251
      x2139 = rho_c**(-3.5d0)*x2138
      x2140 = x2139*x790
      x2141 = 144.751042466189d0*rho_c**(-4.5d0)*x186*x2103*x2138/x274**
     &4 + 72.1956585579204d0*x2105 + 18.0938803082737d0*x2115*x2139*x286
     & + 12.0326097596534d0*x2116 - 24.0652195193068d0*x2118 + x2129 + x
     &2134 + 20.3556153468079d0*x2135 + x2137*(3.71490869071649d0*x576 +
     & 8.35514471411675d0*x770 - 33.420578856467d0*x775 - 14.85963476286
     &6d0*x780) - 54.281640924821d0*x2140
      x2142 = 3.0d0*x796
      x2143 = 8.0d0*x274*x289
      x2144 = x2103*x2143
      x2145 = x2144*x40
      x2146 = 3.0d0*x40
      x2147 = x287**(-2)
      x2148 = x251*x794
      x2149 = x2147*x2148
      x2150 = x2146*x2149
      x2151 = x2130*x274
      x2152 = 2.0d0*x1747
      x2153 = x256*x750
      x2154 = x255*x268
      x2155 = x2153*x2154
      x2156 = 1.07073387443022d0*x741
      x2157 = x268*x752
      x2158 = 0.121994199821273d0*x758
      x2159 = 0.284653132916304d0*x757*x888
      x2160 = 0.267683468607554d0*x2154*x270
      x2161 = 0.892278228691848d0*x760
      x2162 = 0.000542507213303895d0*x2102
      x2163 = x269*x768
      x2164 = x2148*x795
      x2165 = x2164*x274*x284
      x2166 = x185*x40
      x2167 = x274*x797
      x2168 = 12.0d0*x2167
      x2169 = 0.121994199821273d0*x754*x757
      x2170 = x186*x2169
      x2171 = -rho_c**(-6.0d0)*x2170 - rho_c**(-6.0d0)*x2170 + 3.3906572
     &6902902d0* x2070*x269
      x2172 = x253*(-x1698*x2145 + x1964*x2097 + x2066*(x1948*x95 + x194
     &9*(x879 - x918 + x919 + x924 + x928 + x931 - x936) + x1964*x369 - 
     &x1965*x803 - x2059*x343*x366 - x2062*x913 + x2065 - x939*(x1966 + 
     &x1971 + x1972 - x1974 + x1975 - x1976 + x1977 + x1978 - x1979 + x1
     &980 + x1981 - x1986 + x1989 - x1992 + x1994 + x1996 + x1998 - x200
     &0 + x2003 + x2004 - x2005 - x2006 + x2013 - x2015 + x2020 - x2023 
     &+ x2025 + x2028 + x2029 + x2030 + x2042 + x2050 - x2054 + x2058)) 
     &+ x2073*(x1964*x351 - x2062*x903 + x2068*x95 - x2069*x803 + x2072)
     & - x2081*x2160*x751 - x2095*(x2074 + x2076 - x2077 - x2078 + x2080
     & - x2083 - x2084 + x2085 - x2086 + x2087 + x2088 - x2094) + x2098*
     & x340 - x2099*x803 + x2114*x2152*x767 - x2142*x766*(-x2130*x2133 +
     & x2141 - x288*(x2101 + x2106 + x2117 - x2119 + x2129)) + x2146* x2
     &165*x783 - x2150*x2151 + x2155*x2156 + x2157*x2158 - x2157* x2161 
     &+ x2159*x755 - x2162*x755 - 1.18970430492246d0*x2163*x254 + x2166*
     &x2168*x765 + x2171)
      x2173 = x1950*x562
      x2174 = x1951*x616
      x2175 = x850*x944
      x2176 = x2175*x372
      x2177 = x1947*x370/x252**6
      x2178 = x2177*x372
      x2179 = x942*x945
      x2180 = x1772*x800
      x2181 = x1272*x955
      x2182 = x955**2
      x2183 = x2182*x9
      x2184 = 0.0308430206873641d0*x2183
      x2185 = x1272*x2184
      x2186 = x1272*x982
      x2187 = x2186*x627
      x2188 = x962**(-2)
      x2189 = x2188*x981**2
      x2190 = 0.0893877004050842d0*x1294
      x2191 = x955*x957
      x2192 = x2188*x981
      x2193 = x1015*x2192
      x2194 = x1272*x983
      x2195 = x1036*x627
      x2196 = x1034*x392
      x2197 = x1325*x2196
      x2198 = x1832*x955
      x2199 = x2198*x632
      x2200 = x1030*x1036*x2196
      x2201 = x1038*x11
      x2202 = x1776 - x1885 + x1887 + x1893 - x1895 + x1963
      x2203 = 8.34d0*x964
      x2204 = x250*x621
      x2205 = 2.0d0*x614
      x2206 = x1110*x1884
      x2207 = 4.0d0*x732
      x2208 = 0.258879113792152d0*x733
      x2209 = 0.158014317620522d0*x567
      x2210 = x52*x570
      x2211 = 0.00133097214976253d0*x2210
      x2212 = -x2211
      x2213 = x590*x947
      x2214 = 0.101321996098707d0*x2213*x586
      x2215 = -x2207 + x2208 + x2209 + x2212 + x2214
      x2216 = x1770*x1886
      x2217 = x1763*x580
      x2218 = x2216 + x2217
      x2219 = x95**(-2)
      x2220 = x2219*x621*x962
      x2221 = x1193*x1727
      x2222 = x1762*x582
      x2223 = x1774*x582
      x2224 = -5.75747149073746d0*x1723 - 0.177604923664312d0*x1726 + 13
     &.5204071594115d0*x1729 - 0.113883891368902d0*x1734 + 0.02960082061
     &07187d0*x1737 - 13.1783940895515d0*x1739 + 0.658919704477575d0*x17
     &49 + 4.3181036180531d0*x1751 + 4.3181036180531d0*x1752 + 66.72d0*x
     &1755 + 66.72d0*x1757 - 1.3146571598294d0*x1759 + 156.077386031284d
     &0*x1761 + 100.079996146529d0*x1765 - 577.653616803179d0*x1767 - 66
     &.72d0* x1769 + 33.36d0*x1803 - 19.5096732539106d0*x2222 + 19.50967
     &32539106d0*x2223
      x2225 = -33.36d0*x1952 - 2.78d0*x2172 + 266.88d0*x2173 - 171.12888
     &7090869d0* x2174 + 18.8527158779386d0*x2176 - 19.1776023007703d0*x
     &2178 - 22.6232590535263d0*x2179 - 667.2d0*x2180 - x2202*x2203 - 16
     &.68d0* x2204*x980 + 8.34d0*x2220*(x2205 - x2206 + x2215 + x2218) +
     & 684.515548363478d0*x2221 + x2224
      x2226 = x1294*x963
      x2227 = 0.00385537758592051d0*x2226
      x2228 = x1065*x394
      x2229 = x1272*x632
      x2230 = x2198*x2229
      x2231 = 0.00144576659472019d0*x76
      x2232 = x642*x955
      x2233 = x1040*x1041
      x2234 = 0.00428081366304526d0*x678
      x2235 = x1043*x2234
      x2236 = 0.0028538757753635d0*x955
      x2237 = x1056*x70
      x2238 = x1050*x2235 + x1054*x2236 + 0.00499428260688613d0*x2233 - 
     &0.0059503309916329d0*x2237
      x2239 = x397**(-2)
      x2240 = x1064*x2239
      x2241 = 0.000722883297360095d0*x76
      x2242 = x1294*x2241
      x2243 = x2240*x2242
      x2244 = 4.31802289623097d0*x641
      x2245 = x1815*x955
      x2246 = 3.45441831698478d0*x80
      x2247 = 1.48046499299348d0*x2183
      x2248 = x2247*x80
      x2249 = 0.555174372372553d0*x1849
      x2250 = 7.20246219091326d0*x987
      x2251 = 4.29060961944404d0*x81
      x2252 = rho_s*x2232
      x2253 = 5.18162747547716d0*x627
      x2254 = x1060*x1840
      x2255 = x1049*x2254
      x2256 = x1049**2*x1861
      x2257 = 4.44139497898043d0*x390*exp(-x1854*x387)
      x2258 = 2.22069748949021d0*x1060
      x2259 = x1061*x1865
      x2260 = 2.96092998598695d0*x955
      x2261 = 1.5433847551957d0*x81
      x2262 = x250*x982
      x2263 = x79*x982
      x2264 = rho_s*x1045
      x2265 = 6.0d0*x1870*x630
      x2266 = 16.0d0*x1134
      x2267 = x1046*x2266
      x2268 = 0.237021476430782d0*x947
      x2269 = 2.07103291033722d0*x1723 + 0.0638866631886015d0*x1726 - 4.
     &86345581273796d0*x1729 + 4.74042952861565d0*x1739 - 1.553274682752
     &91d0*x1751 - 1.55327468275291d0*x1752 - 24.0d0* x1755 - 24.0d0*x17
     &57 - 56.14294461557d0*x1761 + 24.0d0*x1769 - 12.0d0*x1803
      x2270 = 0.370116248248369d0*x2254*x79
      x2271 = x81*x963
      x2272 = 0.185058124124184d0*x2271
      x2273 = 0.000240961099120032d0*x1285
      x2274 = 1.48046499299348d0*x1036
      x2275 = x2274*x80
      x2276 = x1297*x686
      x2277 = x1017*x1036
      x2278 = x1016**2
      x2279 = x995**(-2)
      x2280 = x1036*x2279
      x2281 = x2251*x2280
      x2282 = x636*x643
      x2283 = x1028*x1030
      x2284 = x1036*x2283
      x2285 = x1335*x678
      x2286 = x1028*x2285
      x2287 = gamma_cc*x538
      x2288 = x2287*x682
      x2289 = x1025**2
      x2290 = exp(x1026*x1854)
      x2291 = x2289*x2290
      x2292 = x1036*x1334
      x2293 = 4.44139497898043d0*x1861*x2292
      x2294 = x1027*x1037
      x2295 = 2.22069748949021d0*x1860
      x2296 = x2294*x2295
      x2297 = 0.154109291869629d0*x1296*x1913/x1029**3
      x2298 = 0.0513697639565431d0*x1335*x1913
      x2299 = x1027*x2298
      x2300 = x1917*x686
      x2301 = x2277*x998
      x2302 = x1041*x1326
      x2303 = x1017*x2302
      x2304 = x1326*x70
      x2305 = x2279*x2304
      x2306 = 0.198503041880874d0*x2305
      x2307 = x2276*x689
      x2308 = 0.0357019859497974d0*x998
      x2309 = x2261*x2280
      x2310 = x1016*(x1023 + x1047)
      x2311 = 0.0357019859497974d0*x2305
      x2312 = x1031*x1840*x2277
      x2313 = x1043*x2286
      x2314 = x751*(x2060*x900 + x2061)
      x2315 = -x2110 - x2112
      x2316 = 3.0d0*x381
      x2317 = x2149*x2316
      x2318 = x1003**2
      x2319 = x2318*x381
      x2320 = x1001*x268
      x2321 = x1000*x2154
      x2322 = x1003*x381
      x2323 = x253*(-x1002*x2159 + x1002*x2162 + x1004*x2142*(x2133*x793
     & + x2141 + x288*(-x2101 - x2106 - x2117 + x2119 - x2120 - x2123 - 
     &x2125 + x2128)) + x1005*x2152*(x2107 - x2108 + x2315) + x1006*x209
     &8 + x1698*x2143*x2319 + x2066*(x1948*x61 - x1949*x938 - x1965*x621
     & + x2059*x915 + x2065 + x2202*x369 - x2314*x913 + x939*(-x1966 - x
     &1971 - x1972 + x1974 - x1975 + x1976 - x1977 - x1978 + x1979 - x19
     &80 - x1981 + x1986 + x2093)) + x2073*(x2068*x61 - x2069*x621 + x20
     &72 + x2202*x351 - x2314*x903) + x2082*x2160 + x2095*(-x2074 - x207
     &6 + x2077 + x2078 - x2080 + x2083 + x2084 - x2085 + x2086 - x2087 
     &- x2088 + x2094) + x2097*x2202 - x2099*x621 + x2151*x2317 - x2156*
     &x2321 + x2158*x2320 - x2161*x2320 + x2165*x2316*(-x771 + x776 + x7
     &92) + x2168*x2322*x590 + x2171 + 1.18970430492246d0*x268 *x379*x76
     &8)
      x2324 = x2177*x384
      x2325 = x1008*x945
      x2326 = x2175*x384
      x2327 = x1020*x2265 + 16.0d0*x1021*x1877*x636 + 12.0d0*x1024*x1872
     & + 246.228614519237d0*x1771 - 240.0d0*x1773 - 12.0d0*x1776 - 61.55
     &71536298092d0*x1778 + 96.0d0*x1780 + 0.0106477771981002d0* x1873 -
     & 7.01786807694624d0*x1879 + 7.01786807694624d0*x1881 - 207.7890707
     &9251d0*x1937 - 0.0409654285499647d0*x1938 + 0.237021476430782d0*x1
     &939 - 0.472898258931437d0*x1940 + 35.9999986138594d0*x1941 + x2269
     & + x2323 + 6.89841809380227d0* x2324 + 8.13786296889434d0*x2325 - 
     &6.78155247407862d0*x2326
      x2328 = 0.370116248248369d0*x1840*x2294
      x2329 = x1043*x2285
      x2330 = 0.00856162732609051d0*x1027*x2329
      x2331 = x999*(x1897 - x1953 - x1955 + x1956 + x1958 + x1959 - x196
     &0 + x1961 - x1962)
      x2332 = x997*x998
      x2333 = x1015*x2332
      x2334 = x995/x61**2
      x2335 = x2334*x997
      x2336 = x2335*(-x2205 + x2206 + x2207 - x2208 - x2209 + x2211 - x2
     &214 - x2216 - x2217)
      x2337 = x1036*x81
      x2338 = x2337*x996
      x2339 = 0.185058124124184d0*x2338
      x2340 = x2304*x996
      x2341 = 0.00214040683152263d0*x2340
      x2342 = x1295*x1325
      x2343 = 0.000240961099120032d0*x2342
      x2344 = x1348*x952
      x2345 = x40*x402*x698*x7
      x2346 = x1804*x623
      x2347 = x1036*x82
      x2348 = x1325*x2347 + 1.0d0
      x2349 = x1036*x2348
      x2350 = x2349*x983
      x2351 = x1031*x986
      x2352 = x1296*x2351
      x2353 = x1335*x77 + x2348
      x2354 = 1d0/x2353
      x2355 = x2349*x2354
      x2356 = x2351*x2355
      x2357 = 1572864.0d0*x1069
      x2358 = x401**(-2)
      x2359 = x2358*x398
      x2360 = x1808*x2359
      x2361 = x1811*x2354
      x2362 = 6291456.0d0*x1069*x1348*x2346 - 3145728.0d0*x1070*x1747*(x
     &1784 - x1785 + x1869) - 2171635.40498976d0*x1723 - 66990.021739651
     &d0*x1726 + 5099703.04229752d0*x1729 - 42955.3652072078d0*x1734 + 1
     &1165.0036232752d0*x1737 - 4970700.63339768d0*x1739 + 248535.031669
     &884d0*x1749 + 1628726.55374232d0*x1751 + 1628726.55374232d0*x1752 
     &+ 25165824.0d0*x1755 + 25165824.0d0* x1757 - 495869.764757291d0*x1
     &759 + 58870144.2932159d0*x1761 + 37748734.5465263d0*x1765 - 217882
     &632.695327d0*x1767 - 25165824.0d0*x1769 + 4194304.0d0*x1782*x2345 
     &+ 12582912.0d0*x1803 - 12582912.0d0*x1952 - 1048576.0d0*x2172 + 10
     &0663296.0d0*x2173 - 64547353.9245308d0*x2174 + 7110973.16705946d0*
     &x2176 - 7233515.65112681d0*x2178 - 8533167.80047135d0*x2179 - 2516
     &58240.0d0*x2180 + 258189415.698123d0*x2221 - 7358768.03665198d0*x2
     &222 + 7358768.03665198d0*x2223 + 1572864.0d0 *x2344*(-x1038*x2228*
     &x2231*x392 - 0.0160769245332885d0*x1057* x2201 - 0.013493821550721
     &8d0*x1066*x1272*x627 + 0.0160769245332885d0*x1066*x1294*x982 + x12
     &72*x1813 + 0.0115661327577615d0*x1272*x1828 + x1272*x250*x803*x984
     & + x1816* x2181 + x1820*x2185 - 0.0857435975108721d0*x2186*x2191 -
     & 0.150051295644026d0*x2187 + x2189*x2190 - x2193*x2194 + 0.0134938
     &215507218d0*x2195*x2197 + 0.00771075517184102d0*x2199* x2200 + x22
     &25*x2227 - 0.00771075517184102d0*x2228*x2230 + x2243* x390*(-0.257
     &230792532616d0*x1057*x81 + 0.123372082749456d0*x1058* x2232 + x106
     &2*x1841*x79 + x2238 + 0.215901144811548d0*x392*x987) + x2273*(rho_
     &s*x2259*x2260*x632 + x1820*x2248 + x2189*x2251 - x2193*x2261 + x22
     &25*x2272 + x2244 + x2245*x2246 + x2249 - x2250* x982 - 4.115692680
     &52186d0*x2252*x982 + x2253*x2255 - 6.17353902078279d0*x2255*x2263 
     &+ x2256*x2257 - x2256*x2258 + x2261*x2262*x803 - x2270*(-12.0d0*x1
     &048*x1871*x2264 - x1698*x2267 + 0.0409654285499647d0*x1734 - 0.010
     &6477771981002d0*x1737 - x1748 *x2268 + 0.472898258931437d0*x1759 -
     & 35.9999986138594d0*x1765 + 207.78907079251d0*x1767 + 12.0d0*x1952
     & + x2172 - 96.0d0*x2173 + 61.5571536298092d0*x2174 - 6.78155247407
     &862d0*x2176 + 6.89841809380227d0*x2178 + 8.13786296889434d0*x2179 
     &+ 240.0d0* x2180 - 246.228614519237d0*x2221 + 7.01786807694624d0*x
     &2222 - 7.01786807694624d0*x2223 - x2265*x995 + x2269)) - x2343*(x1
     &017* x2304*x2308*x621 + 0.190410591732253d0*x1017*x2307 - 0.285615
     &887598379d0*x1017*x2313 - 6.17353902078279d0*x1028*x2312 - x1036*x
     &1815*x2246*x636 + x1036*x2244 + x1036*x2249 + 0.00642122049456788d
     &0*x1297*x1832*x1909 + 0.0570775155072701d0* x1297*x1905 + 0.169805
     &608634128d0*x1326*x688 + x1821*x2275 + x1840*x2253*x2284 - 2.96092
     &998598695d0*x1867*x2284 - 0.159817043420356d0*x1902*x2276 - x2250*
     &x2277 + x2261*x2301*x621 + 4.11569268052186d0*x2277*x2282 + x2278*
     &x2281 + x2278*x2306 + 0.239725565130534d0*x2286*x2288 - 0.13698603
     &7217448d0*x2286*x2300 - x2289*x2296 - x2289*x2299 + x2291*x2293 + 
     &x2291*x2297 - 0.333218535531443d0*x2303 + x2309*x2310 + x2310*x231
     &1 - x2327* x2328 - x2327*x2330 + x2339*(-684.515548363478d0*x1771 
     &+ 667.2d0* x1773 + 33.36d0*x1776 + 171.128887090869d0*x1778 - 266.
     &88d0*x1780 + x2224 - 2.78d0*x2323 - 19.1776023007703d0*x2324 - 22.
     &6232590535263d0*x2325 + 18.8527158779386d0*x2326 + 8.34d0* x2331 +
     & 16.68d0*x2333 + 8.34d0*x2336) + x2341*( -11.5149429814749d0*x1723
     & - 0.355209847328624d0*x1726 + 27.040814318823d0*x1729 - 0.2277677
     &82737804d0*x1734 + 0.0592016412214373d0*x1737 - 26.356788179103d0*
     &x1739 + 1.31783940895515d0*x1749 + 8.63620723610619d0*x1751 + 8.63
     &620723610619d0*x1752 + 133.44d0*x1755 + 133.44d0*x1757 - 2.6293143
     &1965879d0*x1759 + 312.154772062569d0*x1761 + 200.159992293059d0*x1
     &765 - 1155.30723360636d0*x1767 - 133.44d0* x1769 - 1369.0310967269
     &6d0*x1771 + 1334.4d0*x1773 + 66.72d0*x1776 + 342.257774181739d0*x1
     &778 - 533.76d0*x1780 + 66.72d0*x1803 - 39.0193465078211d0*x2222 + 
     &39.0193465078211d0*x2223 - 5.56d0* x2323 - 38.3552046015406d0*x232
     &4 - 45.2465181070525d0*x2325 + 37.7054317558771d0*x2326 + 16.68d0*
     &x2331 + 33.36d0*x2333 + 16.68d0*x2336))) - x2357*x2360*x2361*(x101
     &7*x2350 - x2349*x628 + x2349*x637*x957 + x2352*(x1018 - x1033 - x9
     &88 + x992) + x2356*( -x1017*x1327 - x1018*x1036 + x1028*x1336 + x1
     &033*x1036 + x1036* x988 - x1036*x992 + x1042*x1326 - 0.00142693788
     &768175d0*x2307))
      x2363 = 7.94728597005208d-8*rho_c
      x2364 = 3.19599739013806d-7*x737
      x2365 = x580*x582
      x2366 = 0.25d0*x1069*x2344 + 0.5d0*x1071 - x1193*x1886 + x1195*x18
     &84 + x2215 + 1.16964467949104d0*x2365 - 2.0d0*x799 - 0.5d0*x943 - 
     &0.678155247407862d0*x946
      x2367 = x1084*x494
      x2368 = x1633*x169
      x2369 = x1083*x173
      x2370 = x169*x2369
      x2371 = x1642*x496*x69
      x2372 = x1084*x2371
      x2373 = x2371*x493
      x2374 = x1079*x501
      x2375 = x1080*x473 - x1629 - x1632 - x1636 - x1637 + x1640*x2374
      x2376 = 0.0462645310310461d0*x1651
      x2377 = 0.00771075517184102d0*x1652
      x2378 = x1080*x1645
      x2379 = 0.0462645310310461d0*x2378
      x2380 = x1080*x1623
      x2381 = 0.00771075517184102d0*x2380
      x2382 = x1645*x1649
      x2383 = x1079*x488
      x2384 = x2382*x2383
      x2385 = x1079*x1651
      x2386 = 0.313621176746478d0*x1605*x1655 - x1654 + x1659 + x1661 - 
     &x1663
      x2387 = 0.00428081366304526d0*x69
      x2388 = 0.000713468943840876d0*x69
      x2389 = x1668*x2374
      x2390 = x1671*x2374
      x2391 = 0.25d0*x470
      x2392 = x1088*x2391 + x1091 - x2391*x513 + x521*(-x1088*x1681 + x1
     &089*(x1085*( -x1624 - x1665*x2386 - x2376 - x2377 + x2379 + x2381 
     &+ x2384 - 0.0231322655155231d0*x2385) - x1626 + x1633*x2372 + x164
     &4*x2375 - x2367*x472 - x2367*x476 + x2368*x474 + x2368*x478 - x236
     &9*x2373 - x2370*x474 - x2370*x478 - x472*x495 - x476*x495 + x511*(
     &x128* x2385 + x1625 + x1669*x2383 + x1669*x2386 + x1670*x2387 + x1
     &672* x2388 - x1673*x2383 + x1674*x2386 + x1675 + x1676 + x2376*x80
     & + x2377*x80 - x2379*x80 - x2381*x80 - x2384*x80 - x2387*x2389 - x
     &2388*x2390)) - x1684 + x1685 - x1687 - x1688 + x1689 - x1690)
      x2393 = x204*(x1622 + x2392)
      x2394 = x1094*x529
      x2395 = x1105*x526
      x2396 = x1094*x558
      x2397 = x1747*(8.0d0*x187 + 81.36d0*x46 + 3.48d0)
      x2398 = x1102*x1421
      x2399 = x1097*x1700
      x2400 = x1098*x1701 + 0.400624880640947d0*x1101
      x2401 = x1706*x2400
      x2402 = x1099*x538
      x2403 = 0.640999809025515d0*rho_s
      x2404 = x2403*x546
      x2405 = x1100*x542
      x2406 = x553*(gamma_cs*x536 - x1098*x2404*x542 + 2.2434993315893d0
     &*x1098*x539 - 0.640999809025515d0*x2402*x535 + 1.49566622105954d0*
     &x2405 - 0.240374928384568d0*x543*(-x1711 - x1713 + 1.3333333333333
     &3d0* x544 - 1.33333333333333d0*x545))
      x2407 = -x2397 + x2398*x533 + x2399 - x2401 + x2406
      x2408 = x2407*x557
      x2409 = x210*x2408
      x2410 = x1104*x198
      x2411 = x1721*x2410
      x2412 = 0.0359835241352581d0*x955
      x2413 = 1.33333333333333d0*x634
      x2414 = 1.33333333333333d0*x635
      x2415 = -x1825 - x1826 + x2413 - x2414
      x2416 = 0.0115661327577615d0*x2415
      x2417 = x2245*x636
      x2418 = x1131*x542
      x2419 = rho_c**(-7.66666666666667d0)
      x2420 = 0.0308430206873641d0*x1286
      x2421 = 0.000713468943840876d0*x1137
      x2422 = x10*x661
      x2423 = 0.185058124124184d0*x1129*x2422*x627
      x2424 = x1144*x2234
      x2425 = -x2420 - x2421 + x2423 + x2424
      x2426 = x2412*x641
      x2427 = x2416*x641
      x2428 = x1847*x2417
      x2429 = x1129*x632
      x2430 = 0.215901144811548d0*x2422*x2429
      x2431 = x1814*x989
      x2432 = x1129*x1840
      x2433 = 0.123372082749456d0*x2431*x2432
      x2434 = 0.123372082749456d0*x1852*x955
      x2435 = x1859*x681
      x2436 = 1.48046499299348d0*x2435
      x2437 = x1855*x2436
      x2438 = x1142*x1851*x2437
      x2439 = 0.740232496496738d0*x2435
      x2440 = x1129*x1851*x2439
      x2441 = x1791 + x649
      x2442 = x1747*x649
      x2443 = 2.56488140124205d0*x585
      x2444 = 2.56488140124205d0*x584
      x2445 = -x1742 - x1744 - x2443 + x2444
      x2446 = x185*x2445
      x2447 = 0.00170689285624853d0*x1736
      x2448 = x1760*x3
      x2449 = 1.49999994224414d0*x2448
      x2450 = x1109*x1779
      x2451 = x1117*x613
      x2452 = x1157*x2451
      x2453 = x1738*x57
      x2454 = x2453*x976
      x2455 = x1107*x43
      x2456 = x1725*x2075*x2455
      x2457 = 0.00266194429952506d0*x2456
      x2458 = x1107*x561
      x2459 = x2458*x566
      x2460 = 0.316028635241043d0*x2459
      x2461 = x1117*x2453
      x2462 = 0.202643992197415d0*x2461
      x2463 = x1738*x560
      x2464 = x2445*x2463
      x2465 = x2455*x561
      x2466 = 16.0d0*x2465
      x2467 = x2466*x560
      x2468 = 10.2595256049682d0*x2463
      x2469 = x1117*x2468
      x2470 = x2468*x586
      x2471 = x1108*x43
      x2472 = x2471*x53*x974
      x2473 = -x2450 - x2452 + x2454 - x2457 - x2460 - x2462 - x2464 + x
     &2467 + x2469 - x2470 + x2472
      x2474 = -x1118*x2447 + x1118*x2449 + 2.0d0*x1127*x2442*x630 + x113
     &4*x1875*x2442 + x1288*x657 + x1874*x2446 + x2441*x647 + x2473
      x2475 = x1114*x659
      x2476 = x2474*x2475*x79
      x2477 = -x1822 + x1823 - x1907 - x1908
      x2478 = x1140*x542
      x2479 = x2478*x678
      x2480 = x1128*x683
      x2481 = x1911/x7**7
      x2482 = gamma_cc*x1914*x2481
      x2483 = 0.017123254652181d0*x2481
      x2484 = x219*x75
      x2485 = x1111*x1829 + x1112*x694 + x1131*x1833*x2419*x637 + 0.0115
     &661327577615d0 *x1132*x1837*x693 + x1147*x1833*x638 + 0.0115661327
     &577615d0*x1147 *x1838 - x1147*x629*x669 + x1205*(-x2426 + x2427 + 
     &x2428 + x2430 - x2433 - x2434 + x2438 - x2440 - x2476) + x1818*x24
     &17 + x1844* x2425 + x1918*(-x1128*x2482*x538*x658 + 0.001664760868
     &96204d0* x1136*x688 + x1141*x1142*x2483*x658 - 0.00998856521377226
     &d0*x1143 *x2479 + 0.00570775155072701d0*x1406*x1915*x2480 - 0.0001
     &33775426970164d0*x1900*x2477 - 0.00118911490640146d0*x1903* x955 +
     & 0.00570775155072701d0*x1910*x955 + x2426 - x2427 - x2428 - x2430 
     &+ x2433 + x2434 - x2438 + x2440 + x2474*x2484*x680 + x2476 ) - x24
     &12*x633 + x2416*x633 - 0.0269876431014436d0*x2418*x669
      x2486 = x185*(x1869 + x698)
      x2487 = x2486*x702
      x2488 = x3*x649
      x2489 = x2488*x696
      x2490 = x1747*x1781*x636
      x2491 = 0.125d0*x1809
      x2492 = x10*x1149
      x2493 = x1115*x1149
      x2494 = x1954*x2446
      x2495 = x1117*x51
      x2496 = x2447*x2495
      x2497 = x2449*x2495
      x2498 = x2457 + x2460 - x2472
      x2499 = x2450 + x2452 - x2454 + x2462 + x2464 - x2467 - x2469 + x2
     &470 + x2494 - x2496 + x2497 + x2498
      x2500 = x1920*x2489 + x1920*x2493*x590 + x2485*x626 + 0.25d0*x2487
     & + 0.333333333333333d0*x2490 - x2491*x2492*x696 + x2499
      x2501 = x1104*x1927
      x2502 = x1161*x1926
      x2503 = x1096*x180
      x2504 = x214*x2500 + x2501 + x2502*x707 + x709*(x2398*x706 + x2407
     & - 2.0d0*x2503 )
      x2505 = x1162 + x1163
      x2506 = x1168 + x1169
      x2507 = -x1166 - x1167 + x2506
      x2508 = 3.0d0*x3
      x2509 = x2500*x714 + 0.04375d0*x2501 + x2502*x719 + x709*(0.0875d0
     &*x1103*x3 - 0.04375d0*x2397 + x2398*x716 + 0.04375d0*x2399 - 0.043
     &75d0*x2401 + 0.04375d0*x2406 - 0.0875d0*x2503)
      x2510 = 64.0d0*x238
      x2511 = x1108*x1779
      x2512 = x2451*x562
      x2513 = x1118*x1736
      x2514 = x2446*x728
      x2515 = x1728*x1738
      x2516 = x2465*x560
      x2517 = 21515784.6415103d0*x2463
      x2518 = x1760*x2471
      x2519 = x1118*x2448
      x2520 = -x1117*x2517 - 262144.0d0*x1810*x2492 + 524288.0d0*x185*x2
     &493*x625*x685 + x1936*x2489 + 5582.50181163758d0*x2456 + 662760.08
     &4453024d0* x2459 + 424975.253524793d0*x2461 + 2097152.0d0*x2464 + 
     &x2485*x725 + 524288.0d0*x2487 + 699050.666666667d0*x2490 + 8388608
     &.0d0*x2511 + 5378946.16037756d0*x2512 + 3579.61376726732d0*x2513 -
     & 41422.505278314d0*x2514 - 424975.253524793d0*x2515 - 33554432.0d0
     & *x2516 + x2517*x586 - 4905845.35776799d0*x2518 - 3145727.87887719
     &d0*x2519
      x2521 = x246*x247*x257
      x2522 = rho_s*x888
      x2523 = 0.789445984914903d0*x2522*x262*x344
      x2524 = 0.526297323276602d0*rho_s*x1260*x2064
      x2525 = 2.06952542814068d0*x1274*x1947
      x2526 = 0.00232364122055169d0*x1319*x893
      x2527 = x2499*x369
      x2528 = x270*x820
      x2529 = 0.00471242990112409d0*x2528
      x2530 = rho_c**(-2.66666666666667d0)
      x2531 = 0.0188497196044964d0*rho_s*x2530
      x2532 = 0.0188497196044964d0*x834
      x2533 = 0.0115260005177981d0*x627
      x2534 = 0.00288150012944953d0*x744
      x2535 = 0.00864450038834858d0*x79
      x2536 = x2534 + x2535
      x2537 = x2026*x873
      x2538 = x1239*x2529 + x1241*x2027*x6 - x1242*x2529 - x2001*x2012*(
     &x2533*x870 + x2536) + x2002*x2532 + x2531*x823 + x2531*x828 + x253
     &7*x6*x820* x832
      x2539 = 0.726848237132856d0*x840
      x2540 = x2539*x6
      x2541 = x1990*x2532
      x2542 = x1241*x5
      x2543 = x2533*x852
      x2544 = x1990*x2012
      x2545 = x6*x836
      x2546 = x1249*x874
      x2547 = x2016*x862
      x2548 = x2547*x5*x817
      x2549 = x5*x836
      x2550 = 0.0582386976490866d0*x850
      x2551 = x2550*x310
      x2552 = x79*x855
      x2553 = x2552*x306
      x2554 = 0.0549335645954204d0*x1735
      x2555 = x2554*x306
      x2556 = 0.0582386976490866d0*x2034
      x2557 = x2556*x853
      x2558 = 0.219734258381682d0*x627
      x2559 = x2037*x2558
      x2560 = x2550*x325
      x2561 = x2053*x2558 + x2552*x321 + x2554*x321 + x2556*x871 + x2560
     &
      x2562 = x2055*x2056*x328
      x2563 = x1255*x2562*x874
      x2564 = x2043*x2048*x314
      x2565 = x1252*x2564
      x2566 = -x1248*x2021 + x1314*x2545 + x1314*x842 - x1315*x2549 + x1
     &315*x842 + x1985*x1987 + x1985*x1995 - x2017*x2542 - x2018*x2548 +
     & x2539* x877 - x2540*x330 - x2541*x819 - x2544*(-x2534 - x2535 + x
     &2543) + x2546*x868 - x2561*x6*x869 + x2563*x324 - x2565*x309*x863 
     &- x5* x849*(-x2551 - x2553 - x2555 + x2557 + x2559)
      x2567 = x939*(rho_s*x1969*x341 + 1.45369647426571d0*x1318*x839 + x
     &2538 + x2566 - 29.0739294853142d0*x772*x925 + 0.726848237132856d0*
     &x840*(-x1983 - x1984 + 3.0d0*x932 - 3.0d0*x933) + 21.8054471139857
     &d0*x921*x935)
      x2568 = rho_s*x740
      x2569 = 0.122688256445129d0*x2568*x345
      x2570 = 0.0669208671518886d0*x1219*x2071
      x2571 = 1.0525946465532d0*x1274*x2067
      x2572 = x2499*x351
      x2573 = rho_s*x260*x297
      x2574 = -x257 + x818
      x2575 = x854 + x857 - x859 - x861
      x2576 = 3.63424118566428d0*x1985
      x2577 = rho_s*x2091*x2092*x744 - 48.0d0*rho_s*x348*x809 + x2538 + 
     &x590*x810
      x2578 = x255*x886
      x2579 = rho_s*x2079*x756
      x2580 = 0.0799516697279215d0*rho_s*x2102*x884 - 1.0525946465532d0*
     &x2522*x292
      x2581 = x1745 + x2443 - x2444
      x2582 = x185*x2581
      x2583 = x1738*x800
      x2584 = x2581*x2583
      x2585 = x2583*x586
      x2586 = 2.14146774886044d0*x339*x740
      x2587 = 1.2383028969055d0*x1753
      x2588 = 27.1408204624105d0*x2135
      x2589 = 72.1956585579204d0*x2103
      x2590 = 3.0d0*x762
      x2591 = 3.0d0*x763
      x2592 = x2113 - x2590 + x2591
      x2593 = 2.476605793811d0*x778
      x2594 = x13*x79
      x2595 = x2594*x281
      x2596 = 12.0326097596534d0*x2595
      x2597 = 18.0938803082737d0*x2135
      x2598 = x1003*x284
      x2599 = x1226*x2598
      x2600 = x2599*x281
      x2601 = 14.859634762866d0*x576 + 33.420578856467d0*x770
      x2602 = -x1003*x2137*x2601
      x2603 = x2315 + x2590 - x2591
      x2604 = x2595*x2603
      x2605 = 5.57009647607783d0*x2604
      x2606 = x1003*x2101
      x2607 = x1003*x2118
      x2608 = 33.420578856467d0*x2607
      x2609 = x2593*x2603
      x2610 = x1003*x2587
      x2611 = 9.90642317524398d0*x1003*x2121*x2127
      x2612 = x2609 - x2610 + x2611
      x2613 = x1222*x2146
      x2614 = x2592*x645
      x2615 = x1003*x1224
      x2616 = 0.535366937215109d0*x1219
      x2617 = x1228*x796
      x2618 = x3*x764
      x2619 = 6.0d0*x2167*x2618
      x2620 = x1226*x284
      x2621 = x2620*x764
      x2622 = rho_s*x2063*x2169 - 1.96301210312207d0*x2568*x269
      x2623 = x253*(-x1230*x2586 + x1747*x2145 - 6.0d0*x185*x2617*x765 -
     & x2066*(x2523 - x2524 + x2525 + x2526 - x2527 - x2567) - x2073*(x2
     &569 - x2570 + x2571 - x2572) + x2095*(-x1259*x2578 - x2153*x2579 +
     & x2580 + x880 *(-x1245*x2565*x2575 - x1246*x2539*x5 - x1246*x2576 
     &- x1248*x1253 *x2575 - x1250*x2563 + x1251*x2540 - x1251*x2576 - x
     &1252*x1253*( x2551 + x2553 + x2555 - x2557 - x2559) + x1254*x2549 
     &- x1254*x842 + x1255*x1256*x2561 - x1256*x2546 - x1257*x2545 - x12
     &57*x842 + x2016*x2542*x2575 + x2541*x2574 + x2544*(x2536 - x2543) 
     &+ x2548* x2574*x820 - 24.0d0*x2573*(x804 - x805) + x2577)) + x2097
     &*(-x1109 *x1950 + x1157*x1951 + x1730*x2447 - x1730*x2449 - x1738*
     &x1890 - x1954*x2582 + x2466*x800 + x2498 + x2584 - 20.519051209936
     &4d0* x2585) + x2146*x2164*x2621 + x2150*x2615 - x2155*x2616 - x261
     &3*( -144.751042466189d0*rho_s*x2104*x2139 - rho_s*x2121*x2124*x212
     &6 - x1225*x2131*x284 - x1732*x2589*x774 + x2130*x2600 + x2134*x764
     & + x2587*x764 + x2588*x764 - x2592*x2593 - x2592*x2596 - x2592*x25
     &97 + x2602 - x288*(x2605 - x2606 + x2608 + x2612)) - x2614*x767 - 
     &x2619*x40 + x2622)
      x2624 = x1108*x1950
      x2625 = x1951*x562
      x2626 = x1730*x1736
      x2627 = x2582*x947
      x2628 = x1267*x945
      x2629 = x1273*x632
      x2630 = rho_s*x1814
      x2631 = x1827 - x2413 + x2414
      x2632 = x1284*x627
      x2633 = x1040*x1292
      x2634 = 0.00674691077536089d0*x627
      x2635 = x1052*x1292
      x2636 = x627*x955
      x2637 = x1273*x2636
      x2638 = 0.032153849066577d0*x1230*x250
      x2639 = x1322*x2194
      x2640 = x1285*x1292
      x2641 = 0.00803846226664426d0*x982
      x2642 = x2636*x663
      x2643 = 0.00385537758592051d0*gamma_cc
      x2644 = 48.0d0*x2624
      x2645 = 30.7785768149046d0*x2625
      x2646 = 0.158014317620522d0*x1120*x566
      x2647 = 0.101321996098707d0*x1304
      x2648 = 5.1297628024841d0*x1124*x560
      x2649 = 8.0d0*x1110*x1120
      x2650 = -x2646 + x2647 + x2648 + x2649
      x2651 = 0.0204827142749824d0*x2626
      x2652 = 0.237021476430782d0*x2627
      x2653 = 4.06893148444717d0*x2628
      x2654 = 4.86345581273796d0*x2515
      x2655 = 12.0d0*x2584
      x2656 = x2465*x800
      x2657 = 192.0d0*x2656
      x2658 = 246.228614519237d0*x2585
      x2659 = 17.9999993069297d0*x2448
      x2660 = x1730*x2659
      x2661 = 0.0319433315943007d0*x2456
      x2662 = 3.79234362289252d0*x2459
      x2663 = 28.071472307785d0*x2518
      x2664 = x2661 + x2662 - x2663
      x2665 = -x1274*x250*x2508*x980 - 3.0d0*x1281*x2204 + x2220*x2508*x
     &2650 - 3.0d0* x2499*x964 - x2623 - x2644 + x2645 + x2651 - x2652 -
     & x2653 - x2654 + x2655 + x2657 - x2658 - x2660 + x2664
      x2666 = x1344*x398
      x2667 = x1345*x398
      x2668 = x2241*x79
      x2669 = x2181*x627*x663
      x2670 = x1065*x391
      x2671 = x1286*x630
      x2672 = x1300*x2236 + 0.0059503309916329d0*x1324*x2304 - x1333*x13
     &35*x2235
      x2673 = 0.123372082749456d0*x1036*x2671 - x1037*x1333*x1841 + 0.25
     &7230792532616d0*x1324*x2337 + x2672
      x2674 = x1030*x394
      x2675 = 1.72720915849239d0*x2232
      x2676 = 0.555174372372553d0*x642
      x2677 = 3.60123109545663d0*x987
      x2678 = x1291*x627
      x2679 = 2.59081373773858d0*x1840
      x2680 = 2.05784634026093d0*x2671
      x2681 = 1.5433847551957d0*x987
      x2682 = x1230*x2681
      x2683 = x1322*x2261
      x2684 = x2188*x2251
      x2685 = x1049*x1861
      x2686 = x1283*x79
      x2687 = x1291*x1840
      x2688 = x1115*x3
      x2689 = 6.0d0*x2688
      x2690 = 6.0d0*x1871
      x2691 = -x2661 - x2662 + x2663
      x2692 = x1298*x689
      x2693 = 0.0570775155072701d0*x1864
      x2694 = x1036*x1324
      x2695 = x1030*x1333
      x2696 = x1333*x2285
      x2697 = x1324*x2302
      x2698 = x1274*x2681
      x2699 = x1865*x2636
      x2700 = x1916*x2287*x955
      x2701 = x1300*x955
      x2702 = x1274*x2308
      x2703 = -x1306 + x1330
      x2704 = x2309*x2703
      x2705 = x2311*x2703
      x2706 = x1016*x1323
      x2707 = x2290*x2293
      x2708 = x1025*x1332
      x2709 = x1028*x1332
      x2710 = x2290*x2297
      x2711 = x1031*x1840*x2694
      x2712 = x1333*x2329
      x2713 = 3.0d0*x1311
      x2714 = x253*(x1005*x2614 - x1274*x2586 + 6.0d0*x1312*x2319*x590*x
     &796 + x1747* x2143*x2322*x764 + x2066*(-x2523 + x2524 - x2525 - x2
     &526 + x2527 + x2567) + x2073*(-x2569 + x2570 - x2571 + x2572) + x2
     &095*(x1000* x2579 - x1317*x2578 + x2580 + x880*(x2089*x2573 + x256
     &6 + x2577 )) + x2097*x2499 + x2164*x2316*x2599 - x2317*x2615 + x23
     &21*x2616 + x2619*x381 + x2622 + x2713*(-x1003*x2134 + 144.75104246
     &6189d0* x1003*x2140 - x1003*x2588 + x1224*x2131*x2598 + x2597*x260
     &3 - x2600*x793 + x2602 + 12.0326097596534d0*x2604 + 72.19565855792
     &04d0*x2607 + x2612 + x288*(-x2605 + x2606 - x2608 - x2609 + x2610 
     &- x2611)))
      x2715 = 48.0d0*x2511
      x2716 = 30.7785768149046d0*x2512
      x2717 = 4.06893148444717d0*x1320*x945
      x2718 = 2.43172790636898d0*x2515
      x2719 = 2.43172790636898d0*x2461
      x2720 = 12.0d0*x2464
      x2721 = 192.0d0*x2516
      x2722 = 123.114307259618d0*x2463
      x2723 = x1117*x2722
      x2724 = x2722*x586
      x2725 = x1020*x2441*x2690 + x1021*x1747*x2266 + x1024*x2689 + x133
     &1*x2690*x650 - 0.0204827142749824d0*x2513 + 0.237021476430782d0*x2
     &514 + 17.9999993069297d0*x2519 + x2691 + x2714 - x2715 - x2716 + x
     &2717 + x2718 - x2719 - x2720 + x2721 + x2723 - x2724
      x2726 = x2646 - x2647 - x2648 - x2649
      x2727 = x1015*x1302*x2508*x998 + 3.0d0*x1322*x2332 - 0.02048271427
     &49824d0*x1736* x2495 + x2268*x2446 + x2335*x2508*x2726 + x2495*x26
     &59 + x2664 - x2714 + x2715 + x2716 - x2717 - x2718 + x2719 + x2720
     & - x2721 - x2723 + x2724 + 3.0d0*x999*(x2473 - x2494 + x2496 - x24
     &97)
      x2728 = x1212*x1348
      x2729 = x2360*(x1111*x2349*x630 + x1324*x2350 + x2352*(x1287 + x13
     &39 - x1341) + x2356*(-x1301 - x1328 + x1337 - x1338 - x1340 + x134
     &2))
      x2730 = -786432.0d0*x1069*x2361*x2729 + 1572864.0d0*x1070*x2486 + 
     &1572864.0d0* x1349*x2346 - 9437183.63663157d0*x1730*x2448 - 209715
     &2.0d0*x1747* x2345*x955 + 786432.0d0*x2344*(0.00803846226664426d0*
     &x1066*x1284* x79 + x1272*x1325*x2634*x2666 + x1282*x2190*x2192 - 0
     &.00803846226664426d0*x1283*x2201*x392 - 0.042871798755436d0* x1284
     &*x2191 + x1292*x2668*x2670 - x1344*x2342*x2641 - x2185*x2630 + x21
     &87*x2638 - x2192*x2639 + x2196*x2292*x2666*x2668 - 0.0038553775859
     &2051d0*x2199*x2635 - x2200*x2642*x2643 + 0.010717949688859d0*x2226
     &*x2665 + x2228*x2643*x2669 + 0.00385537758592051d0*x2230*x2667 - x
     &2243*x2673*x2674 + x2273*( 1.48046499299348d0*rho_s*x1291*x1866*x9
     &55 + x1282*x2684*x981 - 2.05784634026093d0*x1283*x2252 - x1283*x26
     &77 + x1290*x2257*x2685 - 2.22069748949021d0*x1291*x2685 - x2192*x2
     &683 - x2248*x2630 - 3.0867695103914d0*x2255*x2686 - 1.480464992993
     &48d0*x2259*x2636 + x2262*x2682 - 3.0867695103914d0*x2263*x2687 - x
     &2270*(x1048*x2689 - x1289*x2264*x2690 + x1747*x2267 + x2623 + x264
     &4 - x2645 - x2651 + x2652 + x2653 + x2654 - x2655 - x2657 + x2658 
     &+ x2660 + x2690* x995*(x1045 + x1869) + x2691) + 0.514461585065233
     &d0*x2271*x2665 - x2631*x2676 - x2675 + x2678*x2679 + x2680*x982) -
     & x2343*(x1016* x2704 + x1016*x2705 + 0.0952052958661265d0*x1017*x2
     &701 - 0.14280794379919d0*x1017*x2712 - 3.0867695103914d0*x1028*x27
     &11 + x1036*x2415*x2676 - x1036*x2675 - x1037*x2295*x2709 + x1134*x
     &2275 *x2431 + 0.0952052958661265d0*x1324*x2307 - 0.14280794379919d
     &0* x1324*x2313 - 3.0867695103914d0*x1333*x2312 - x1867*x2274*x2695
     & + x1901*x2276*x2693*x955 + x2195*x2679*x2695 - x2274*x2283*x2699 
     &+ x2277*x2680 + x2281*x2706 + 2.05784634026093d0*x2282*x2694 - 0.0
     &684930186087241d0*x2286*x2700 + 0.119862782565267d0*x2288* x2696 -
     & x2298*x2709 - 0.0684930186087241d0*x2300*x2696 + x2301* x2698 + x
     &2303*x2702 + x2306*x2706 - x2328*x2725 - x2330*x2725 + 0.514461585
     &065233d0*x2338*x2727 + 0.0119006619832658d0*x2340* x2727 + 0.00642
     &122049456788d0*x2477*x2692 - x2677*x2694 - 0.0799085217101781d0*x2
     &692*x955 - 0.166609267765721d0*x2697 + x2707*x2708 + x2708*x2710) 
     &- x2412*x2629 - 0.0115661327577615d0* x2629*x2631 - 0.075025647822
     &0131d0*x2632 - x2633*x2634 + 0.042871798755436d0*x2637*x982 + x264
     &0*x2641) - x2357*x2728*x951 + 16747.5054349127d0*x2456 + 1988280.2
     &5335907d0*x2459 - 2549851.52114876d0*x2515 - 14717536.073304d0*x25
     &18 + 6291456.0d0* x2584 - 129094707.849062d0*x2585 - 524288.0d0*x2
     &623 - 25165824.0d0*x2624 + 16136838.4811327d0*x2625 + 10738.841301
     &8019d0*x2626 - 124267.515834942d0*x2627 - 2133291.95011784d0*x2628
     & + 100663296.0d0*x2656
      x2731 = 1.58945719401042d-7*rho_c
      x2732 = x1153 - x1270 - x1271 + x1353
      x2733 = -x1269 + x1351 - x1352 + x2732
      x2734 = x1083*x1630
      x2735 = x1083*x1643
      x2736 = x1079**2
      x2737 = x2382*x2736
      x2738 = -x1090 + x519 + x521*(-x1088**2*x1579*x1680 + x1089*(x1084
     &*x1635*x2369 + x1085*(-x1665*x2736 + x1666 - 0.0925290620620922d0*
     &x2378 - 0.015421510343682d0*x2380 + x2737) + x1626 + x1627*x2367 +
     & x1628* x2367 + x1629*x2734 + x1632*x2734 + x2375*x2735 + x511*(x1
     &583* x2378 + x1587*x2380 + x1614*x2389 + x1616*x2390 + x1669*x2736
     & - x1673*x2736 + x1674*x2736 + x1677 - x2737*x80)) + x1691)
      x2739 = x204*(x1622 + x2738)
      x2740 = x1104*x1718
      x2741 = x553*(gamma_cc*x536 + 1.28199961805103d0*x1098*x2402 + 0.7
     &47833110529767d0*x543*(x1709 + x1712))
      x2742 = x1102*x1705
      x2743 = x2400*x2742
      x2744 = -2.0d0*x1097*x2398 + x185*(6.0d0*x187 + 67.8d0*x46 + 1.74d
     &0) - x2741 + x2743
      x2745 = x2744*x557
      x2746 = x210*x2745
      x2747 = x1117*x57
      x2748 = 0.40528798439483d0*x2747
      x2749 = 0.237021476430782d0*x566
      x2750 = x1740 + x1743
      x2751 = 0.0168869993497846d0*x2750
      x2752 = x2751*x947
      x2753 = x185*x2752
      x2754 = 0.854960467080683d0*x2750
      x2755 = 20.5190512099364d0*x1158
      x2756 = 12.0d0*x1110
      x2757 = x1786 + x1789
      x2758 = x185*x2757
      x2759 = x2758*x702
      x2760 = x2166*x7
      x2761 = 0.333333333333333d0*x2760
      x2762 = x1876*x227
      x2763 = x1149**2*x663
      x2764 = x1149*x2488*x630
      x2765 = 0.00514050344789401d0*x2757
      x2766 = x2182*x630
      x2767 = 0.0308430206873641d0*x2766
      x2768 = x1135*x663
      x2769 = 0.0308430206873641d0*x955
      x2770 = x2636*x2768
      x2771 = x683*x72
      x2772 = rho_c**(-6.66666666666667d0)
      x2773 = x1128**2
      x2774 = x219*x2773
      x2775 = x2437*x2774
      x2776 = x187*x2749
      x2777 = 4.0d0*x1115
      x2778 = 0.666666666666667d0*x2757
      x2779 = x1134*x698
      x2780 = x1120*x2748
      x2781 = x187*x2756
      x2782 = x1120*x2755
      x2783 = x2754*x46
      x2784 = x2783*x560
      x2785 = x2780 - x2781 - x2782 - x2784
      x2786 = x1127*x2777 + x1875*x2779 + x2751*x728 + x2776 + x2778*x64
     &6 + x2785
      x2787 = x2475*x2786
      x2788 = x2439*x2773*x659
      x2789 = 0.246744165498913d0*x955
      x2790 = x1847*x2766 + x2765*x80
      x2791 = x2765*x641
      x2792 = x2767*x641
      x2793 = 0.000118911490640146d0*x1900*x2757
      x2794 = x2182*x688
      x2795 = 0.00118911490640146d0*x2768*x2794
      x2796 = x2775*x632
      x2797 = x2788*x632
      x2798 = x2482*x2773*x542
      x2799 = x2478*x2483*x2774
      x2800 = x1840*x2789
      x2801 = x2429*x2800
      x2802 = 0.011415503101454d0*x2479*x2480*x955
      x2803 = x2787*x632
      x2804 = x2478*x2484*x2786*x679
      x2805 = 0.0231322655155231d0*x1132*x1147*x2771 + x1146*x1843*x2425
     &*x2771 + x1147 *x1818*x2770 + x1918*(-x2791 - x2792 - x2793 - x279
     &5 - x2796 + x2797 - x2798 + x2799 + x2801 + x2802 + x2803 + x2804)
     & + x2418* x2768*x2769 + x2765*x633 + x2767*x633 + x2772*x670*(-x24
     &32*x2789 + x2775 - x2787 - x2788 + x2790)
      x2806 = -x1698*x2749 + x1698*x2756 - x2458*x2748 + x2458*x2755 + x
     &2463*x2754 - x2491*x2763 + x2753 - 0.0833333333333333d0*x2759 + x2
     &761*x2762 + 0.5d0*x2764*x724 + x2805*x626
      x2807 = x1161*x2410
      x2808 = -x1925*x2807 - x214*x2806 - x2744*x709
      x2809 = 0.0875d0*x1105
      x2810 = x1441*x203
      x2811 = -x2806*x714 - x2807*x2810 - x709*(-x1096*x1441*x2398 + x18
     &5*(0.2625d0* x187 + 2.96625d0*x46 + 0.076125d0) - 0.04375d0*x2741 
     &+ 0.04375d0* x2743)
      x2812 = 128.0d0*x238
      x2813 = x1698*x566
      x2814 = x1182*x632
      x2815 = gamma_cc*x1181
      x2816 = x1204*x1206
      x2817 = x1181*x220
      x2818 = x1184*x1204*x2817
      x2819 = x1198**2
      x2820 = x61*x630
      x2821 = x1120*x1890
      x2822 = 12.0d0*x1195
      x2823 = x187*x2822
      x2824 = x2783*x800
      x2825 = 20.5190512099364d0*x1193
      x2826 = x1120*x2825
      x2827 = -x2752 + x2776
      x2828 = x2421 - x2424
      x2829 = x1183**(-2)
      x2830 = x1182*x1204*x2829
      x2831 = x185*x2750
      x2832 = x2831*x947
      x2833 = x1728*x2458
      x2834 = x1195*x1698
      x2835 = x1211*x701
      x2836 = x2583*x2750
      x2837 = x1193*x2458
      x2838 = x1045*x955
      x2839 = x1189*x1212
      x2840 = 262144.0d0*x1184*x223/x1187**2
      x2841 = x1149*x1208*x1808*x2840*x663 - x1190*x951*(x1192*x2772*(x1
     &179*x2436* x2819*exp(-x1854*x61) - x1198*x1199*x2800 - x1199*x2439
     &*x2819 - x1200*(x1197*x2777 - x2778*x2820 - 5.33333333333333d0*x27
     &79*x61 - x2821 + x2823 + x2824 - x2826 + x2827) + x2790) + x1201*x
     &2769* x2815*x542*x663 - 0.0231322655155231d0*x1202*x2818*x682*x72 
     &- x1207*(x2791 + x2792 + x2793 + x2795 + x2796 - x2797 + x2798 - x
     &2799 - x2801 - x2802 - x2803 - x2804) + x2765*x2814 + x2767* x2814
     & - 0.0308430206873641d0*x2770*x2816 + 0.0115661327577615d0* x2771*
     &x2830*x79*(x2420 - x2423 + x2828)) + 1048576.0d0*x1209* x2839*x630
     & - 699050.666666667d0*x1211*x2760*x2838 + 174762.666666667d0*x2758
     &*x2835 + 497070.063339768d0*x2813 - 35414.6044603994d0*x2832 - 849
     &950.507049586d0*x2833 + 25165824.0d0*x2834 + 1792982.05345919d0*x2
     &836 - 43031569.2830205d0*x2837
      x2842 = 0.535366937215109d0*x2163
      x2843 = x2109 + x2111
      x2844 = x2843*x645
      x2845 = 12.0d0*x2618
      x2846 = x251*x280
      x2847 = x2147*x2846
      x2848 = 3.0d0*x1228
      x2849 = x2846*x795
      x2850 = x2752 - x2776
      x2851 = x2821 - x2823 - x2824 + x2826 + x2850
      x2852 = x2096*x740
      x2853 = x350*x888
      x2854 = x2593*x2843
      x2855 = 9.90642317524398d0*x779
      x2856 = 144.751042466189d0*x789
      x2857 = x2594*x773
      x2858 = x1226*x773
      x2859 = x2318*x2857
      x2860 = x2318*x2855 + x2854
      x2861 = x2318*x2858
      x2862 = x2136*x2601*x2861 + x2596*x2843 + x2597*x2843 - x288*(5.57
     &009647607783d0 *x2595*x2843 + 33.420578856467d0*x2859 + x2860)
      x2863 = 0.0282745794067445d0*x2528
      x2864 = x2863*x822
      x2865 = x2863*x827
      x2866 = 0.0141372897033723d0*x1240
      x2867 = x2547*x2866
      x2868 = x2537*x2866
      x2869 = 3.63424118566428d0*x840
      x2870 = x2869*x316
      x2871 = x2869*x330
      x2872 = 4.36108942279713d0*x835
      x2873 = x1315*x2872
      x2874 = x1314*x2872
      x2875 = x849*(x2033 + x2551)
      x2876 = x869*(x2051 + x2560)
      x2877 = x2049*x2564*x862
      x2878 = x2057*x2562*x873
      x2879 = x2864 + x2865 + x2867 + x2868 + x2870 + x2871 + x2873 + x2
     &874 - x2875 - x2876 + x2877 + x2878
      x2880 = 1.55214407110551d0*x1947
      x2881 = x274*x2869
      x2882 = x253*(x2066*(x1261 + x2851*x2880 - x939*(-x1265 + x2879 - 
     &x2881)) + x2073*(x1233 + x2851*x2853) + x2095*(x1236 - x880*(-x123
     &8 + x2879 )) - x2144*x2166 - x2613*(x1003*x1225*x2132*x2858 + x210
     &3*x2855 + x2104*x2856 + x2589*x2857 + x2854 + x2862) - x2615*x2847
     &*x2848 + x2617*x2845 - x2621*x2848*x2849 + x2842 + x2844*x767 + x2
     &851* x2852)
      x2883 = x1282**2
      x2884 = x1282*x2188
      x2885 = gamma_cc*x1052
      x2886 = -x2780 + x2781 + x2782 + x2784 + x2850
      x2887 = 8.34d0*x185
      x2888 = -7.9070364537309d0*x2813 + 0.563350298308813d0*x2832
      x2889 = x1274*x2219*x2650*x2887*x962 - 16.68d0*x1275*x1281*x250 - 
     &x185*x2203* x2886 + 13.5204071594115d0*x2833 - 400.32d0*x2834 - 28
     &.5214811818116d0*x2836 + 684.515548363478d0*x2837 - 2.78d0* x2882 
     &+ x2888
      x2890 = x1031*x2666
      x2891 = x1334*x1344*x2239
      x2892 = 0.246744165498913d0*x2757*x642
      x2893 = x2247*x641
      x2894 = 4.11569268052186d0*x2671
      x2895 = x1290**2*x1861
      x2896 = 2.84425771716939d0*x2813
      x2897 = 2.0d0*x1871*x2757
      x2898 = 16.0d0*x185*x2779
      x2899 = 12.0d0*x2688
      x2900 = x1323**2
      x2901 = x1332**2
      x2902 = x2458*x2747
      x2903 = x2463*x2750
      x2904 = x1158*x2458
      x2905 = x1110*x1698
      x2906 = x1312*x2316*x2318
      x2907 = -x2864 - x2865 - x2867 - x2868 - x2870 - x2871 - x2873 - x
     &2874 + x2875 + x2876 - x2877 - x2878
      x2908 = x253*(-x1005*x2844 - x1224*x2847*x2906 + x1313*x2845*x381*
     &x796 + x185* x2144*x381 + x2066*(x1261 + x2880*x2886 + x939*(x1265
     & + x2881 + x2907)) + x2073*(x1233 + x2853*x2886) + x2095*(x1236 + 
     &x880*( x1238 + x2907)) + x2620*x2849*x2906 + x2713*(-x1224*x2132*x
     &2861 + x2318*x2856*x286 + 72.1956585579204d0*x2859 + x2860 + x2862
     &) + x2842 + x2852*x2886)
      x2909 = x1020*x2897 + x1020*x2898 + x1331*x2899 + 0.20264399219741
     &5d0*x2831*x728 + x2896 + 4.86345581273796d0*x2902 - 10.25952560496
     &82d0*x2903 - 246.228614519237d0*x2904 - 144.0d0*x2905 + x2908
      x2910 = x999*(x2785 + x2827)
      x2911 = x1303*x1322*x998
      x2912 = x1302*x2334*x2726
      x2913 = 16.68d0*x185
      x2914 = x1347*x1811*x2354
      x2915 = 0.0833333333333333d0*x1070*x2758 + 0.5d0*x1212*x1349*x951 
     &- x1348*x1350* (-0.00771075517184102d0*gamma_cc*x2667*x2669 - 0.01
     &60769245332885d0*x11*x1284*x2890 + 0.0857435975108721d0*x1283 *x26
     &37 + 0.0160769245332885d0*x1283*x2640 + 0.00771075517184102d0 *x12
     &92*x2642*x2885 + x2184*x2229 + x2188*x2190*x2883 + x2227* x2889 - 
     &x2231*x2635*x2890 + x2242*x2673*x2891 + x2273*(x1283*x250 *x2682 +
     & x1283*x2894 - x1865*x2260*x2678 + x2257*x2895 - x2258* x2895 - x2
     &270*(x1289*x2899 - 0.202643992197415d0*x2832 - 4.86345581273796d0*
     &x2833 + 144.0d0*x2834 + 10.2595256049682d0* x2836 - 246.2286145192
     &37d0*x2837 + x2882 + x2896 - x2897*x995 - x2898*x995) + x2272*x288
     &9 - x2683*x2884 + x2684*x2883 - 6.17353902078279d0*x2686*x2687 + x
     &2892 + x2893) - x2343*( -2.96092998598695d0*x1036*x2695*x2699 + x1
     &036*x2892 + x1036*x2893 + x1298*x2693*x2794 + x1323*x2704 + x1323*
     &x2705 + 0.190410591732253d0*x1324*x2701 - 0.285615887598379d0*x132
     &4*x2712 - 6.17353902078279d0*x1333*x2711 + x2281*x2900 - x2296*x29
     &01 - x2299*x2901 + x2306*x2900 - x2328*x2909 - x2330*x2909 + x2339
     &*( x2887*x2910 + x2887*x2912 + x2888 - 13.5204071594115d0*x2902 + 
     &28.5214811818116d0*x2903 + 684.515548363478d0*x2904 + 400.32d0* x2
     &905 - 2.78d0*x2908 + 16.68d0*x2911) + x2341*( -15.8140729074618d0*
     &x2813 + 1.12670059661763d0*x2832 - 27.040814318823d0*x2902 + 57.04
     &29623636231d0*x2903 + 1369.03109672696d0*x2904 + 800.64d0*x2905 - 
     &5.56d0*x2908 + x2910* x2913 + 33.36d0*x2911 + x2912*x2913) + 0.005
     &70775155072701d0* x2692*x2757 + x2694*x2698*x998 + x2694*x2894 - 0
     &.136986037217448d0*x2696*x2700 + x2697*x2702 + x2707*x2901 + x2710
     &*x2901) + x2629*x2765 + x2632*x2638 - x2639*x2884) + x1698* x2822 
     &- x1890*x2458 - x2458*x2825 + 0.125d0*x2729*x2914 - x2753 - x2761*
     &x2838*x402 + 0.237021476430782d0*x2813 + 0.854960467080682d0*x2836
     & + 0.0833333333333333d0*x2882
      x2916 = 262144.0d0*x1468
      x2917 = x1575*x1621
      x2918 = -x460*(x2917 - x455 + x457)
      x2919 = x1089*x1678
      x2920 = -x521*(x1091 + x2919)
      x2921 = x466 + x524
      x2922 = x2918 + x2920 + x2921
      x2923 = x1399*x2922
      x2924 = x1395*x528
      x2925 = 0.75d0*x2924
      x2926 = x132*x435
      x2927 = x1509*x2926
      x2928 = 4.45918089900548d-5*x438
      x2929 = 0.0115661327577615d0*x407
      x2930 = x2929*x80
      x2931 = x134*x2930
      x2932 = 0.00192768879296025d0*x411
      x2933 = x2932*x80
      x2934 = x134*x2933
      x2935 = x407*x428
      x2936 = x1610*(x2929 + x2932 + 0.00578306637888076d0*x2935)
      x2937 = x127*x431
      x2938 = 0.00578306637888076d0*x2937
      x2939 = x132*x1375
      x2940 = x2939*x410
      x2941 = x2939*x414
      x2942 = x1595*x429*x432*x69
      x2943 = x1375*x2942
      x2944 = x1595*x444
      x2945 = x1364*x2944
      x2946 = x1373*x69
      x2947 = x2*x439
      x2948 = x1620*(x1366*x2935 + x1372*x1592*x2947*x441 + x1591*x2946 
     &+ x2930 + x2933 + 0.000356734471920438d0*x2946*x437)
      x2949 = x1368*x1585
      x2950 = 0.00107020341576131d0*x114
      x2951 = x1513 + x2946*x2950
      x2952 = x1596*x2951
      x2953 = x137*x1575
      x2954 = x1378*x2953
      x2955 = x449*x97
      x2956 = x1392*x158
      x2957 = x1678*x2956
      x2958 = 0.00578306637888076d0*x159
      x2959 = x2958*x495
      x2960 = 0.00578306637888076d0*x471
      x2961 = 0.0115661327577615d0*x471
      x2962 = 0.00192768879296025d0*x475
      x2963 = x2961 + x2962
      x2964 = x1085*(x2960*x499 + x2963)
      x2965 = x1380*x1642
      x2966 = x1633*x2965
      x2967 = x1383*x2368
      x2968 = x1366*x471
      x2969 = x162*x164*x2947*x500
      x2970 = x1384*x2969
      x2971 = x2961*x80
      x2972 = x2962*x80
      x2973 = x1385*x69
      x2974 = 0.000356734471920438d0*x506
      x2975 = x1639*x2973 + x2971 + x2972 + x2973*x2974
      x2976 = x511*(x2968*x499 + x2970*x488 + x2975)
      x2977 = x1388*x2373
      x2978 = 0.00107020341576131d0*x161
      x2979 = x1521 + x2973*x2978
      x2980 = x1644*x2979
      x2981 = x171*x2971
      x2982 = x171*x2972
      x2983 = x169*x500
      x2984 = x1509*x2983
      x2985 = 4.45918089900548d-5*x507
      x2986 = x1388*x169
      x2987 = x2986*x474
      x2988 = x2986*x478
      x2989 = x2981 + x2982 + x2984 + x2985 - x2987 - x2988
      x2990 = x143*x468
      x2991 = x1378 + x1392
      x2992 = x204*x39
      x2993 = x2992*(-x2955*(x2927 + x2928 + x2931 + x2934 + x2936 + x29
     &38 - x2940 - x2941 - x2943 - x2945 - x2948 - x2949 + x2952 - x2954
     &) - x2990*( -x2957 + x2959 + x2964 - x2966 - x2967 - x2976 - x2977
     & + x2980 + x2989) + x2991)
      x2994 = x1420*x528
      x2995 = x537 - x541 + x549
      x2996 = x2995*x553
      x2997 = x2996 + x533
      x2998 = 0.25d0*x2997
      x2999 = x1403*x2997
      x3000 = x1420*x1717
      x3001 = x2405*x547 + x536*(x190 - x534) + x541
      x3002 = x3001*x551
      x3003 = 0.30046866048071d0*x1704
      x3004 = x195*x3003
      x3005 = x1099*x547
      x3006 = x552*(x3005*x542 + x540)
      x3007 = x193*x532
      x3008 = 0.240374928384568d0*x194
      x3009 = x1406*x3008
      x3010 = x3007*x3009
      x3011 = x3006 + x3010
      x3012 = -x3002*x3004 + x3011
      x3013 = x1410*x180
      x3014 = x1403*x3013
      x3015 = x1414*x3012*x3014
      x3016 = x3009*x552
      x3017 = x1410*x203
      x3018 = x186*x3017
      x3019 = x2922*x3018
      x3020 = 0.721124785153704d0*x1413
      x3021 = x1407*x1414*x1904
      x3022 = 1d0/x88
      x3023 = x85*(-x1191*x87*(x1191*x1355 + x82) - x1466*x78 + x86)
      x3024 = x1182*x628
      x3025 = x2814*x631
      x3026 = x3025*x956
      x3027 = x1205*x691
      x3028 = x1041*x1191
      x3029 = x2264*x2820*x645 + x657
      x3030 = x1179*x3029*x66
      x3031 = x1181*x685*x955
      x3032 = x1113*x957
      x3033 = x1059*x1199*x3029 + x3032 + x640
      x3034 = x1044*x3030 + 0.000624285325860766d0*x3028 + x3031*x690 + 
     &x3033
      x3035 = x1192*x1206*x3034*x79
      x3036 = x3024 + x3026 + x3027 - x3035
      x3037 = x622*x623
      x3038 = x3022*x3036*x3037
      x3039 = x1359*x1811*x2829
      x3040 = 0.000312142662930383d0*x3028
      x3041 = x1182*x640
      x3042 = 0.000178367235960219d0*x955
      x3043 = x1053*x3042
      x3044 = x1181*x3043
      x3045 = x1113*x3025
      x3046 = x1184*x1358
      x3047 = x3041*x3046
      x3048 = x1184*x1357
      x3049 = x1113*x1833*x2814*x3048
      x3050 = 0.0231322655155231d0*x81
      x3051 = x3050*x669*x691
      x3052 = x1837*x3048*x691*x82
      x3053 = x1180*x1184*x3034
      x3054 = x1186*x1191
      x3055 = x3034*x3054
      x3056 = x3054*(x1839*x3031 + x2235*x3030 + 0.00124857065172153d0*x
     &3028 + x3033)
      x3057 = 0.000535101707880657d0*x70
      x3058 = x3050 + x3057*x669
      x3059 = x2817*x76
      x3060 = x1185*x2829*x3034*x3058*x3059
      x3061 = x1184*(x3040 + x3041 + x3044 + x3045 - x3047 - x3049 + x30
     &51 - x3052 - x3053 - x3055 - x3056 + x3060)
      x3062 = -x1430*x3061 + x3023*x39*x700 + x3038*x3039
      x3063 = x3022*x3062
      x3064 = x1922*x193
      x3065 = 2.0d0*x3064
      x3066 = 0.30046866048071d0*x1423
      x3067 = x1705*x3001
      x3068 = x532*x561
      x3069 = gamma_cc*x187*x3006*x551
      x3070 = gamma_cc*x1421*x531
      x3071 = x3008*x3070
      x3072 = rho_c**(-9.66666666666667d0)*x45
      x3073 = x189*x194
      x3074 = x1406*x3073
      x3075 = x3074*x553
      x3076 = -x180*x1924 - 2.0d0*x3068 + x3069 + x3071*x3072 + 0.480749
     &856769136d0* x3075
      x3077 = x198*x96
      x3078 = x1420*x3077
      x3079 = -x1184*x3038*x7 + x700*x701*x89 + x803
      x3080 = x199*x3079
      x3081 = x2997 + x706
      x3082 = x1430*x3023
      x3083 = x1926*x3022*x3082
      x3084 = -x1427*x3080 + x214*x3063 + x3078*(x3002*x3065 - x3066*x30
     &67 + x3076) - x3081*x3083
      x3085 = 2.8d0*x1487
      x3086 = 2.8d0*x1486 + x3085
      x3087 = 9.0d0*x3
      x3088 = x3086*x3087
      x3089 = 0.0328125d0*x2924
      x3090 = x2997*x557
      x3091 = 0.0109375d0*x1395
      x3092 = 0.2625d0*x1403
      x3093 = x1420*x556
      x3094 = 0.0875d0*x3093
      x3095 = x194*x552
      x3096 = x1439*x3095
      x3097 = 0.0315492093504746d0*x1413
      x3098 = x3001*x553
      x3099 = 0.0131455038960311d0*x1423
      x3100 = 0.3955d0*x182 + 0.15225d0*x187 + 0.0875d0*x46 + 0.09275d0
      x3101 = 0.0105164031168249d0*x194*x3070
      x3102 = -x180*x3100 - 0.0875d0*x3068 + 0.04375d0*x3069 + x3072*x31
     &01 + 0.0210328062336497d0*x3075
      x3103 = x716 + x717
      x3104 = 0.04375d0*x2996 + x3103
      x3105 = -x1443*x3080 + x3063*x714 + x3078*(x1441*x3098 - x3067*x30
     &99 + x3102) - x3083*x3104
      x3106 = 64.0d0*gamma_cc
      x3107 = x1444 - x1445
      x3108 = gamma_cc*(x1437 - x1438 + x1440 + x3107)
      x3109 = 192.0d0*x3
      x3110 = x460*(-x2917 + x458)
      x3111 = x521*(-x2919 + x519)
      x3112 = x2921 + x3110 + x3111
      x3113 = x204*x3112
      x3114 = 8.4d0*x3113
      x3115 = x1403*x529
      x3116 = 25.2d0*x3115
      x3117 = x1403*x3090
      x3118 = 8.4d0*x3117
      x3119 = -x3024 - x3026 - x3027 + x3035
      x3120 = x1189*x3037
      x3121 = x2835*x700 + x3119*x3120*x7 + x803
      x3122 = x3121*x714
      x3123 = 192.0d0*x3122
      x3124 = x3103 - x718
      x3125 = x1418*x198
      x3126 = x212*x3125
      x3127 = 192.0d0*x3124*x3126
      x3128 = x3123 - x3127
      x3129 = x1428 - x1433
      x3130 = x1397 - x1405 + x1416 + x3129
      x3131 = 8.4d0*x3115
      x3132 = 2.8d0*x3117
      x3133 = x3124*x3125*x720
      x3134 = 2.8d0*x3113
      x3135 = 64.0d0*x3122
      x3136 = x238*(x2508*x3086 + x3131 + x3132 + x3133 + x3134 - x3135)
     &
      x3137 = 0.13125d0*x1487
      x3138 = 0.13125d0*x1486 - x3108 + x3137
      x3139 = x1403*x530
      x3140 = x214*x3121
      x3141 = x533 + x706
      x3142 = x3141 - x554
      x3143 = x3126*x3142
      x3144 = -x3140 + x3143
      x3145 = x3113 + x3117 + x3139 + x3144
      x3146 = x1464*x3022
      x3147 = x3022*x3023
      x3148 = -262144.0d0*x3036*x3039*x951/x88**2 + 262144.0d0*x3061*x31
     &46 - x3147*x39 *x731
      x3149 = x1272*x640
      x3150 = 0.032153849066577d0*x81
      x3151 = x2186*x3150
      x3152 = x1296*x1355
      x3153 = x1325*x3152
      x3154 = x2347 + x3153
      x3155 = x1325*x3154
      x3156 = x3155*x398
      x3157 = x3154*x398
      x3158 = x1030*x3157
      x3159 = 0.00289153318944038d0*x76
      x3160 = x70*x76
      x3161 = 3.34438567425411d-5*x3160
      x3162 = x1272*x81
      x3163 = x3162*x398
      x3164 = x1036*x3050 + x1326*x3057
      x3165 = x3159*x3162*x3164
      x3166 = 524288.0d0*x39
      x3167 = x1052*x1466 - x3155*x400 + x399
      x3168 = x1463*x1467*x3166*x699 - x1465*x949*(x1052*x3043 - x1067*x
     &3162 - x1113* x1832*x2229*x3158 + x1272*x3032 - x1334*x2196*x2337*
     &x3157*x3159 + 0.00578306637888076d0*x2197*x2337 + 0.00031214266293
     &0383d0*x2233 - 0.000371895686977057d0*x2237 + x2240*x2674*x3165 - 
     &x2670*x3161 - x3149*x3156 + x3149 + x3151*x3156 - x3151 - 0.002891
     &53318944038d0*x3163*x395*(x1063 + x2238)) + 262144.0d0* x1811*x223
     &9*x3167*x392*x951*(x1039 - x1068 + x953 + x958 - x985)/ x1462**2
      x3169 = x3110 + x466
      x3170 = -x1081 - x1082 + x509
      x3171 = x1087 - x3170*x511
      x3172 = x1092 + x521*(x1089*x3171 + x1091)
      x3173 = x3169 + x3172
      x3174 = x1399*x3173
      x3175 = -x2927 - x2928 - x2931 - x2934 - x2936 - x2938 + x2940 + x
     &2941 + x2943 + x2945 + x2948 + x2949 - x2952
      x3176 = x97*(x2954 + x3175)
      x3177 = x3176*x449
      x3178 = x173*x3170
      x3179 = x169*x3178
      x3180 = x1643*x3170
      x3181 = x143*(x1085*(-x1080*x2960 + x2963) - x1383*x3179 - x1388*x
     &2372 + x2367* x2958 - x2956*x3171 - x2965*x3178 + x2979*x3180 + x2
     &989 - x511*( -x1079*x2970 - x1080*x2968 + x2975))
      x3182 = x3181*x468
      x3183 = x1378 - x1392 + x3177 + x3182
      x3184 = x2992*x3183
      x3185 = x1104*x1403
      x3186 = 0.240374928384568d0*x3007
      x3187 = x2402*x547 + x536
      x3188 = x1102*x551
      x3189 = rho_s*x3188
      x3190 = x1422*x3186 - x3004*x3189 + x3187*x552
      x3191 = x1747*x3190
      x3192 = x3017*x3191
      x3193 = x1403*x3192
      x3194 = x1410*x3173
      x3195 = x1414*x3194
      x3196 = x1104*x1926
      x3197 = x1045*x1154
      x3198 = x669*x71
      x3199 = x1358*x225
      x3200 = x224 + x3198 - x3199
      x3201 = x10*x3200
      x3202 = x1188*x223
      x3203 = x3037*x3202
      x3204 = 0.00192768879296025d0*x1182*x1286
      x3205 = 0.00144576659472019d0*x80
      x3206 = 0.00144576659472019d0*x81
      x3207 = x3206*x669
      x3208 = x39*(2.22959044950274d-5*x1041*x1134*x2*x2815 + 0.00289153
     &318944038d0* x1191*x1202*x80 - x1202*x3048*x3059*x3205 - x1206*x32
     &07*(x1203 + x2828) + x1837*x2830*x3058*x3206 - x2816*x3207 - 1.672
     &19283712705d-5*x2818*x3160 - x3046*x3204 + x3204)
      x3209 = x1189*(-x1208*x3201*x3203 - x1360*x3197 + x3208)
      x3210 = x1096*x44
      x3211 = x1107*x1904
      x3212 = x3064*x3187*x551*x685
      x3213 = x3065*x551
      x3214 = x1420*x3125
      x3215 = x1208*x3120 + x2732 - x2835*x3197
      x3216 = x199*x3215
      x3217 = -x1427*x3216 + x214*x3209 - x3214*(x1102*x3213 - x2742*x30
     &66 + x3071* x3211 - 2.0d0*x3210 + x3212)
      x3218 = x1432*x3196 + x3217
      x3219 = 0.00546875d0*x1189*x1361
      x3220 = -x1443*x3216 + x3209*x714 - x3214*(x1103*x1441 - x2742*x30
     &99 + x3101* x3211 - 0.0875d0*x3210 + 0.04375d0*x3212)
      x3221 = x3196*x3219 + x3220
      x3222 = x1171*x1173
      x3223 = 192.0d0*x1449
      x3224 = x1209*x3201
      x3225 = -2097152.0d0*x1189*x3208 + 524288.0d0*x1360*x2839 + x2840*
     &x3224
      x3226 = x1284*x3150
      x3227 = x2349*x82
      x3228 = x2354*x3154
      x3229 = x1297*x1466 - x1325*x3227*x3228 + x3227
      x3230 = -x1464*x950*(-gamma_cc*x1133*x1272*x3158*x663 - x1030*x316
     &3*x986*(x1343 + x2672) + 0.000371895686977057d0*x1040*x1283*x70 - 
     &x1052*x1293* x3158*x76*x81 - x1052*x2667*x3161 + x1133*x1273 + x12
     &99*x2885* x3042 - x1346*x3163 + 0.00578306637888076d0*x2633*x81 + 
     &x2891* x3165 - x3156*x3226 + x3226) + x2358*x2914*x3229*x949*x951 
     &+ x2728*x3166*x3167
      x3231 = x1398*x210
      x3232 = x1395*x1399
      x3233 = -x1365 - x1368 + x1376
      x3234 = x1577*x97
      x3235 = x1377*x3234
      x3236 = x3233*x3235
      x3237 = -x1381 - x1383 + x1390
      x3238 = x143*x1679
      x3239 = x1391*x3238
      x3240 = x3237*x3239
      x3241 = 6.68877134850821d-5*x69
      x3242 = x114*x3241
      x3243 = 3020.29322777679d0
      x3244 = 1.54726434806315d-6*x3243
      x3245 = x132*x1619*x97**(-7.0d0)
      x3246 = x3244*x3245
      x3247 = x1375*x1511
      x3248 = x1375*x1514
      x3249 = x1576*x445
      x3250 = x1374*x3249
      x3251 = x2951*x3250
      x3252 = x130*(x3242 - x3246 - x3247 - x3248 + x3251)
      x3253 = x2955*x3252
      x3254 = x161*x3241
      x3255 = x143**(-7.0d0)*x1630
      x3256 = x3244*x3255
      x3257 = x1388*x1528
      x3258 = x1388*x1526
      x3259 = x1389*x1641
      x3260 = x1387*x3259
      x3261 = x2979*x3260
      x3262 = x167*(x3254 - x3256 - x3257 - x3258 + x3261)
      x3263 = x2990*x3262
      x3264 = x2*(x3236 + x3240 + x3253 + x3263)
      x3265 = x2992*x3264
      x3266 = 0.120187464192284d0*x1394
      x3267 = x1406*x1415
      x3268 = x207*x208
      x3269 = x194**2
      x3270 = x197**(-6)
      x3271 = 0.00478594012208448d0*x188*x3270
      x3272 = x3269*x3271
      x3273 = 0.0722251327448578d0*x3272
      x3274 = rho_c**(-12.3333333333333d0)*x203
      x3275 = x3274*x45
      x3276 = x1406*x189
      x3277 = x1413*x3276
      x3278 = x202*x3268*x3277
      x3279 = 0.0361125663724289d0*x3269
      x3280 = x3279*x45
      x3281 = rho_c**(-11.3333333333333d0)
      x3282 = x1703*x3281*x338*x72
      x3283 = x1545*x202
      x3284 = x1429*x1811
      x3285 = x214*x3284
      x3286 = rho_c**(-7.0d0)
      x3287 = x1836*x3243*x3286
      x3288 = x1357*x223
      x3289 = x1357*x1835
      x3290 = x1358*x1806*x3058
      x3291 = x220*(x1355 - x1356*x3288 + x224*x3290 - x3050*x3289 - 3.0
     &945286961263d-6*x3287)
      x3292 = x3291*x624
      x3293 = x3200*(-x224 - x3198 + x3199)
      x3294 = x1807*x3293
      x3295 = x3200*x624
      x3296 = x1464*x3295
      x3297 = x199*x3296
      x3298 = -0.5d0*x1420*x3297*(-x1425 + x185) - 2.0d0*x3283*(-0.48074
     &9856769136d0* x1424 + x185 + x3280*x3282) - x3285*x3292 - x3285*x3
     &294
      x3299 = 0.2625d0*x230
      x3300 = 0.00525820155841243d0*x1394
      x3301 = 0.00315984955758753d0*x3269
      x3302 = x3301*x45
      x3303 = x3284*x714
      x3304 = -x121*x202*x3297*(x1441 - x1442) - x3283*(-0.0420656124672
     &994d0*x1424 + x1441 + x3282*x3302) - x3292*x3303 - x3294*x3303
      x3305 = x237*x3106
      x3306 = 128.0d0*x1449
      x3307 = 0.547944148869793d0*x70
      x3308 = x1578*x630
      x3309 = x1811*x3200
      x3310 = x1360*x2840*x3309 + 128.0d0*x220*x3202*x3308*(-23.68743988
     &78956d0*x221* x3290*x81 + 0.00633759476966667d0*x3287 + x3288*x330
     &7*x669 + 47.3748797757912d0*x3289*x81 - x3307)
      x3311 = 0.0078125d0*x247
      x3312 = 2048.0d0*x2354*x3308
      x3313 = x1030*x3312*x948*(3.0945286961263d-6*x1035**8.34d0*x1325*x
     &2348*x2354* x3243*x3286 + x2355*x3050*x3154 - x3152 + x3153*x3228 
     &- x3155* x3164*x3227/x2353**2) + x2359*x3167*x3229*x3312
      x3314 = 6.103515625d-5*rho_c
      x3315 = x1472*x3268
      x3316 = x1480*x1550
      x3317 = x1484 - 0.0105164031168249d0*x3315 + x3316
      x3318 = x3140 - x3143
      x3319 = x2510*(-x3113 - x3117 - x3139 + x3318)
      x3320 = -x3133 + x3135
      x3321 = x1076*x2508 - x3131 - x3132 - x3134 + x3320
      x3322 = x1410*x229
      x3323 = x238*(x1492*x3322 + x1494 - 0.240374928384568d0*x3315)
      x3324 = x97*(x2*x3233*x448*x449 + x3175)
      x3325 = x158*x468
      x3326 = -x2959 - x2964 + x2966 + x2967 + x2976 + x2977 - x2980 - x
     &2981 - x2982 - x2984 - x2985 + x2987 + x2988
      x3327 = x143*(x3237*x3325*x513 + x3326)
      x3328 = x1482*(x2991 + x3324*x449 + x3327*x468)
      x3329 = x1395*x556
      x3330 = x3329*x555
      x3331 = x3186*x539
      x3332 = x194*x1967
      x3333 = 0.640999809025515d0*x3332
      x3334 = x3333 - x548*x68
      x3335 = x550*x551
      x3336 = x194*x2530*x3003
      x3337 = x3331 + x3334*x552 - x3335*x3336
      x3338 = x3013*x3337
      x3339 = x210*x3338
      x3340 = 0.240374928384568d0*x1505
      x3341 = x1410*x526
      x3342 = x3268*x542
      x3343 = x3064*x3334
      x3344 = x1537 + x3010
      x3345 = x1493*x704 - x3322*(-x3004*x3335 + x3343 + x3344)
      x3346 = 0.0105164031168249d0*x1505
      x3347 = x194*x3007
      x3348 = 0.0210328062336497d0*x1505
      x3349 = x1704*x195
      x3350 = 0.0131455038960311d0*x3349
      x3351 = x229*(x1439*x3347 - x3335*x3350 + 0.04375d0*x3343 + x3348)
     &
      x3352 = 0.0105164031168249d0*x1478
      x3353 = x3352*x704
      x3354 = x1410*x3351 - x1410*x3353
      x3355 = 0.015625d0*rho_c
      x3356 = 3.0517578125d-5*x247
      x3357 = x203*x3356
      x3358 = x204*x3173
      x3359 = x1105*x1403
      x3360 = x1104*x3126
      x3361 = -x214*x3215 - x3360
      x3362 = x238*(x3358 - x3359 + x3361)
      x3363 = -x3215*x714 - 0.04375d0*x3360
      x3364 = x238*(0.04375d0*x3358 - 0.04375d0*x3359 + x3363)
      x3365 = x1482*x3183
      x3366 = x1104*x3329
      x3367 = 0.240374928384568d0*x1096*x196 + 0.320499904512757d0*x1099
     &*x1967*x552 - x3188*x3336
      x3368 = x3014*x3367
      x3369 = x1096*x1422*x193
      x3370 = x2402*x552
      x3371 = x1418*(-x3188*x3350 + 0.0105164031168249d0*x3369 + 0.01402
     &18708224331d0* x3370)
      x3372 = x3215*x3352
      x3373 = x1410*x3371 + x1410*x3372
      x3374 = x1418*(-0.0046948228200111d0*x3188*x3349 + 0.0037558582560
     &0888d0*x3369 + 0.00500781100801184d0*x3370)
      x3375 = x1410*x3374
      x3376 = gamma_cc**4*x237
      x3377 = x1435*x3376
      x3378 = rho_c**(-10.3333333333333d0)
      x3379 = x189*x3378
      x3380 = x3268*x3379
      x3381 = x193*x68
      x3382 = rho_c**(-9.33333333333333d0)
      x3383 = 0.0011285176991384d0*x3382
      x3384 = x3073*x338*x551
      x3385 = -0.00751171651201775d0*x3381 + x3383*x3384
      x3386 = x1409*x3322
      x3387 = x3385*x3386
      x3388 = x1394*x1472
      x3389 = gamma_cc*x3388
      x3390 = x1394*x1413
      x3391 = x3276*x3390
      x3392 = x3295*x7
      x3393 = gamma_cc*x1471*x195*x3392
      x3394 = gamma_cc*x1482
      x3395 = 0.00390625d0*x3394
      x3396 = 0.0109375d0*x1482
      x3397 = x3271*x3301
      x3398 = x3382*x3384
      x3399 = -0.0210328062336497d0*x3381 + 0.00315984955758753d0*x3398
      x3400 = 0.0112675747680266d0*x1479*x1550 - x3386*x3399 + 0.0013145
     &5038960311d0* x3393
      x3401 = rho_c*x1420
      x3402 = x3356*x3401
      x3403 = gamma_cc**5/tau_c**5
      x3404 = x180*x3403
      x3405 = x1495*x3404
      x3406 = rho_c**(-8.33333333333333d0)
      x3407 = x1407*x3406
      x3408 = x1704*x3270
      x3409 = x3269*x3408
      x3410 = rho_c**(-7.33333333333333d0)*x3409
      x3411 = 0.0011285176991384d0*x3410
      x3412 = x1377**2*x3234
      x3413 = x1391**2*x3238
      x3414 = x3247 + x3248
      x3415 = x130*x2955
      x3416 = x3415*(-x3242 + x3246 - x3251 + x3414)
      x3417 = x3257 + x3258
      x3418 = x167*x2990
      x3419 = x3418*(-x3254 + x3256 - x3261 + x3417)
      x3420 = x2*(x3412 + x3413 + x3416 + x3419)
      x3421 = 0.5d0*x1489
      x3422 = 0.25d0*x1482
      x3423 = 0.0078125d0*x1491
      x3424 = x203*x247
      x3425 = x3314*x3424
      x3426 = x1502*x3342
      x3427 = -x1507*x1550
      x3428 = x1525 - x1526 - x1528
      x3429 = x2990*x3428
      x3430 = x1520 + x3429
      x3431 = x3396*x3430 + 0.0210328062336497d0*x3426 + x3427
      x3432 = x238*(-rho_s*x1537*x3322 + x3422*x3430 + 0.480749856769136
     &d0*x3426)
      x3433 = x1533*x39
      x3434 = x3433*x528
      x3435 = x115*x2983
      x3436 = 8.91836179801095d-5*x507
      x3437 = x171*x498
      x3438 = 0.00385537758592051d0*x475
      x3439 = x3438*x80
      x3440 = x171*x3439
      x3441 = 0.0115661327577615d0*x159
      x3442 = x1080*x2961
      x3443 = x1386*x169
      x3444 = x173*(x1521 + x3443)
      x3445 = x169*x3444
      x3446 = x1527*x1642
      x3447 = x1522*x2969
      x3448 = x1523*x69
      x3449 = -x1639*x3448 - x2974*x3448 + x3439 + x498
      x3450 = x160 + x2978*x494
      x3451 = -x1389*x3444 + x1529
      x3452 = x3325*x3451
      x3453 = x143*(x1085*(x3438 - x3442 + x489) - x1526*x3179 - x1678*x
     &3452 - x2373* x3444 - x3178*x3446 + x3180*x3450 + x3435 + x3436 + 
     &x3437 + x3440 + x3441*x495 - x3445*x474 - x3445*x478 - x511*(x2971
     &*x499 - x3447 *x488 + x3449))
      x3454 = 0.00385537758592051d0*x411
      x3455 = x3454*x80
      x3456 = x132*x1517
      x3457 = x129 + x2950*x430
      x3458 = x97*(-x115*x2926 - x134*x3455 - x134*x434 + x1510*x2944 + 
     &x1514*x1585 + x1517*x2942 + x1519*x2953 - x1596*x3457 - x1610*(x29
     &29*x428 + x3454 + x415) + x1620*(x2930*x428 + x3455 + x434 + x442)
     & - 0.0115661327577615d0*x2937 + x3456*x410 + x3456*x414 - 8.918361
     &79801095d-5*x438)
      x3459 = x1519 + x3458*x449
      x3460 = -x1531 + x3453*x468 + x3459
      x3461 = x3433*x556
      x3462 = 0.480749856769136d0*x3007
      x3463 = 1.76274947482017d0*x195
      x3464 = x2404*x538
      x3465 = x2995*x551
      x3466 = 0.60093732096142d0*x1704
      x3467 = x3332*x3466
      x3468 = x1422*x3462 + x3465*x3467 + x552*(x3463 - x3464)
      x3469 = x1747*x3468
      x3470 = x1410*x3469
      x3471 = x1403*x3470
      x3472 = x1422*x552
      x3473 = x1500*x3472
      x3474 = x3112*x3473
      x3475 = x1408*x1502
      x3476 = x1904*x3347
      x3477 = x3064*(-x3463 + x3464)
      x3478 = x3335*x539
      x3479 = x1418*(-x3466*x3478 + 0.961499713538272d0*x3472 + 0.480749
     &856769136d0* x3476 - x3477)
      x3480 = x1537*x3121
      x3481 = -x1500*x3479 + x1500*x3480
      x3482 = 0.0109375d0*x3461
      x3483 = 0.0420656124672994d0*x3472
      x3484 = 0.0262910077920621d0*x1704
      x3485 = x1418*(0.0210328062336497d0*x3476 - 0.04375d0*x3477 - x347
     &8*x3484 + x3483)
      x3486 = x3121*x3348
      x3487 = -x1500*x3485 + x1500*x3486
      x3488 = x1524*x173
      x3489 = x169*x3488
      x3490 = x160 - x2978*x3448
      x3491 = x143*(x1085*(-x3438 + x3442 - x489) - x1526*x2370 - x2367*
     &x3441 - x2369* x3446 + x2372*x3488 + x2735*x3490 + x3171*x3452 - x
     &3435 - x3436 - x3437 - x3440 + x3489*x474 + x3489*x478 + x511*(x10
     &79*x3447 - x1080*x2971 + x3449))
      x3492 = x1531 + x3459 + x3491*x468
      x3493 = x1099*x2403*x68 + 0.480749856769136d0*x3332
      x3494 = -x3189*x3467 + x3462*x539 + x3493*x552
      x3495 = x3014*x3494
      x3496 = x3173*x3473
      x3497 = x1406*x3347
      x3498 = x3064*x3493
      x3499 = x3189*x539
      x3500 = x1418*(-x3484*x3499 + 0.0210328062336497d0*x3497 + 0.04375
     &d0*x3498)
      x3501 = -x1410*x3500 - x1500*x3215*x3348
      x3502 = 0.25d0*x1104
      x3503 = x1418*(-x3466*x3499 + 0.480749856769136d0*x3497 + x3498)
      x3504 = -x1410*x3503 - x1538*x3215
      x3505 = 0.015625d0*x1491
      x3506 = rho_c*x3357
      x3507 = x1407*x3272
      x3508 = gamma_cc*x1107
      x3509 = x3281*x3507*x3508
      x3510 = x193*x538
      x3511 = x3378*x3384
      x3512 = x1418*(-0.0150234330240355d0*x3510 + 0.00225703539827681d0
     &*x3511)
      x3513 = x1501*x3512
      x3514 = x542*x685
      x3515 = x1533*x3277
      x3516 = x1431*x1472*x685*x7
      x3517 = x1518*x3235
      x3518 = x3239*x3451
      x3519 = 3.0945286961263d-6*x3243
      x3520 = x130*(-x1364 + x1365*x1517 + x1368*x1517 + x3245*x3519 - x
     &3250*x3457 + x3414)
      x3521 = x2955*x3520
      x3522 = x167*(-x1380 + x1381*x3444 + x1383*x3444 + x3255*x3519 - x
     &3260*x3450 + x3417)
      x3523 = x2990*x3522
      x3524 = x2*(-x3517 + x3518 - x3521 + x3523)
      x3525 = 0.0328125d0*x1482
      x3526 = 0.021875d0*x1534
      x3527 = x3396*x3524
      x3528 = 0.0420656124672994d0*x1504
      x3529 = x1413*x3514
      x3530 = x1418*(-0.0420656124672994d0*x3510 + 0.00631969911517506d0
     &*x3511)
      x3531 = -x1501*x3530 + 0.0225351495360533d0*x1506*x1550 + 0.002629
     &10077920621d0* x3516
      x3532 = x1539*x3404
      x3533 = rho_s*x3382*x3507
      x3534 = x3406*x3409
      x3535 = rho_s*x3534
      x3536 = 0.00225703539827681d0*x3535
      x3537 = x1477*x3536
      x3538 = x1472*x1533
      x3539 = x1418*x3535
      x3540 = x186*x3378*x3507
      x3541 = x186*x3409
      x3542 = x3382*x3541
      x3543 = -0.00451407079655361d0*x1477*x3542
      x3544 = x1503*x1533
      x3545 = x1518**2*x3234
      x3546 = x1530*x3238*x3451
      x3547 = 6.18905739225261d-6*x3243
      x3548 = x3415*(x138*x1517 - x1510 + x1515*x1517 - x1516*x3249*x345
     &7 + x3245* x3547)
      x3549 = x3418*(x1524*x175 - x1524*x3259*x3490 - x1527 + x3255*x354
     &7 + x3443* x3488)
      x3550 = x2*(x3545 + x3546 + x3548 + x3549)
      x3551 = x1418*x3542
      x3552 = 0.67024923187228d0*x1731*x245
      x3553 = x1542*x2922
      x3554 = 3.0d0*x185
      x3555 = x198*x3
      x3556 = x2997*x3555
      x3557 = x1403*x3556
      x3558 = x3077*(-x3098 + x3141) - x3080
      x3559 = x1402*x1543
      x3560 = x1419 + x3559
      x3561 = -x1547 + x1548 + x1552
      x3562 = x1555*x705
      x3563 = x1477*x199
      x3564 = x203*(2.8d0*x3559 + x3563)
      x3565 = 6.0d0*x180
      x3566 = x185*x200
      x3567 = x1933 + x3*x3100
      x3568 = x3077*(-0.0875d0*x3098 + x3567) - 0.0875d0*x3080
      x3569 = -x3123 + x3127
      x3570 = x1560*x248
      x3571 = x1104*x3555
      x3572 = x1161*x199
      x3573 = x708*(-x1097 + x1103)
      x3574 = x3572 - x3573
      x3575 = -x1094*x1542 - x210*x3571 + x3574
      x3576 = x1546*x238
      x3577 = 1.5d0*x1556
      x3578 = 6.103515625d-5*x1561*x247
      x3579 = x1407*x1482
      x3580 = x1407*x3277
      x3581 = x199*x96
      x3582 = x3023*x3146
      x3583 = x185*x199*x3582
      x3584 = x1426*x3581 - x3583*x622
      x3585 = 64.0d0*x561
      x3586 = x235*x236*x3585
      x3587 = x1554*x180*x72
      x3588 = -12.6d0*x1487
      x3589 = 0.021875d0*x1483
      x3590 = 0.175d0*x185
      x3591 = 0.0109375d0*gamma_cc
      x3592 = x3581*(0.0210328062336497d0*x1424 - x3590) - x3583*x3591
      x3593 = 32.0d0*x203
      x3594 = x1555*x180
      x3595 = rho_c*x1559
      x3596 = gamma_cc*x236*x3595
      x3597 = x1546*x3403*x3585
      x3598 = 0.00751171651201775d0*x1479
      x3599 = x1477*x3598
      x3600 = 32.0d0*x1174
      x3601 = 96.0d0*x1174
      x3602 = x1560*x3595
      x3603 = 0.0150234330240355d0*x1506
      x3604 = -x1477*x3603
      x3605 = 16.8d0*x230
      x3606 = 3.0d0*x3563
      x3607 = 0.25d0*x1556
      x3608 = 3.814697265625d-6*x247*x3*x72/tau_c**4
      x3609 = x143*x229 + x205*x40
      x3610 = 0.5d0*x3609
      x3611 = x204*x3610
      x3612 = x230 - x3611
      x3613 = x204*x3609
      x3614 = 1.4d0*x3613
      x3615 = x233 - x3614
      x3616 = x238*x3615 + 32768.0d0
      x3617 = x243 - x3612*x3616
      x3618 = x248*x3617
      x3619 = x521*x704
      x3620 = 0.0625d0*x241
      x3621 = x1110*x183
      x3622 = 0.0098758948512826d0*x242
      x3623 = 1.0d0*x240
      x3624 = x3622 - x3623
      x3625 = x3620 + x3621 + x3624
      x3626 = x3619 + x3625 + x467
      x3627 = x204*x3626
      x3628 = x3609*x529
      x3629 = -x3610*x558 - x3627 + 1.5d0*x3628 + x710
      x3630 = x3609*x558
      x3631 = x238*(-x2508*x3615 - 2.8d0*x3627 + 4.2d0*x3628 - 1.4d0*x36
     &30 + x721)
      x3632 = x247*(-x3612*x3631 - x3616*x3629 + x735)
      x3633 = x247*x3617
      x3634 = x1075 + x3614
      x3635 = x238*x3634
      x3636 = -x3635 + 32768.0d0
      x3637 = x1161*x521
      x3638 = -x3620 - x3621 - x3622 + x3623 + x3637 + x467
      x3639 = x204*x3638
      x3640 = x1105*x3610
      x3641 = x1164 + x3639 + x3640
      x3642 = 0.04375d0*x3639
      x3643 = 0.021875d0*x3609
      x3644 = x1105*x3643
      x3645 = x1170 + x3642 + x3644
      x3646 = x1172 + x3611
      x3647 = x238*x3646
      x3648 = 64.0d0*x3647
      x3649 = x1216 - x3636*x3641 + x3645*x3648
      x3650 = x248*x3649
      x3651 = -x1400*x40
      x3652 = x1418*x143 + x3651
      x3653 = x1399*x3652
      x3654 = 0.25d0*x1379
      x3655 = x143*x7
      x3656 = 0.0625d0*x1189
      x3657 = x1359*x3656
      x3658 = x3654 + x3655*x3657
      x3659 = x2992*x3658
      x3660 = x1410*x3652
      x3661 = x1414*x3660
      x3662 = x1406*x3095
      x3663 = 0.120187464192284d0*x3662
      x3664 = x3661*x3663
      x3665 = x1434 - 1.0d0*x3653 - x3659 + x3664
      x3666 = 0.04375d0*x3653
      x3667 = 0.04375d0*x3659
      x3668 = 0.00525820155841243d0*x3662
      x3669 = x3661*x3668
      x3670 = gamma_cc*(x1446 - x3666 - x3667 + x3669)
      x3671 = x1436 - 0.065625d0*x3613 + x3670
      x3672 = x1450*x3671
      x3673 = x247*(x1362 - x3636*x3665 + x3646*x3672)
      x3674 = x1379*x3396
      x3675 = x1505*x3660
      x3676 = x1481 + x3674 - 0.00525820155841243d0*x3675
      x3677 = -x1487
      x3678 = x204*x3652
      x3679 = x3677 + 0.5d0*x3678
      x3680 = x238*x3679
      x3681 = x3676*x3680
      x3682 = x3635 - 32768.0d0
      x3683 = 0.00390625d0*x1482
      x3684 = x1379*x3683
      x3685 = x1418*x1480
      x3686 = -0.00187792912800444d0*x3675 + x3684 + x3685
      x3687 = x3682*x3686
      x3688 = x3681 + x3687
      x3689 = x1520*x3396
      x3690 = x3473*x3652
      x3691 = x1508 + x3689 + 0.0105164031168249d0*x3690
      x3692 = x3680*x3691
      x3693 = x1520*x3683
      x3694 = -x1418*x1507
      x3695 = 0.00375585825600888d0*x3690 + x3693 + x3694
      x3696 = x3682*x3695
      x3697 = x3692 + x3696
      x3698 = x1542*x3609
      x3699 = x1545 - 0.5d0*x3698
      x3700 = 2.1d0*x3613
      x3701 = x212*(x1551 - 1.4d0*x3698)
      x3702 = x1549 + x3700 - x3701
      x3703 = x1556*x3702
      x3704 = x3636*x3699 + x3646*x3703
      x3705 = 0.25d0*x1921
      x3706 = x143*x3705
      x3707 = -4.0d0*x564 + x568 + x573 + x583 + x591 + x601 + x620 + x7
     &03 - 2.0d0* x732
      x3708 = x204*(x1622 + x3706 + x3707)
      x3709 = x3626*x529
      x3710 = x1697*x3609
      x3711 = x3626*x558
      x3712 = x1720*x3609
      x3713 = x1719*x3712
      x3714 = x1932*x3609
      x3715 = 8.0d0*x238
      x3716 = x2500*x521
      x3717 = 1.0d0*x732
      x3718 = x1779*x183
      x3719 = 0.064719778448038d0*x733
      x3720 = 0.000332743037440633d0*x2210
      x3721 = 0.0395035794051304d0*x567
      x3722 = 2.0d0*x564
      x3723 = 0.0625d0*x724
      x3724 = x3723*x697
      x3725 = 1.28244070062102d0*x560*x617
      x3726 = 0.29241116987276d0*x2365
      x3727 = 0.0253304990246769d0*x586
      x3728 = x2213*x3727
      x3729 = 0.125d0*x699*x702
      x3730 = -0.0395035794051304d0*x1176
      x3731 = 0.0253304990246769d0*x3
      x3732 = x1304*x3731
      x3733 = x1149*x3723 + 0.125d0*x1155*x3 + 1.28244070062102d0*x1158*
     &x562 + 2.0d0* x1309 + x3730 + x3732
      x3734 = x204*(x1622 + x3716 + x3717 - x3718 - x3719 + x3720 - x372
     &1 + x3722 - x3724 - x3725 - x3726 - x3728 - x3729 + x3733)
      x3735 = x3638*x529
      x3736 = x1105*x3626
      x3737 = x3638*x558
      x3738 = x2410*x3712
      x3739 = x2506 - x3642 - x3644
      x3740 = 4.0d0*x1309
      x3741 = x204*(-x1150 + x1152 - x1156 - x1159 + x1329*x3731 + x1622
     & + x2806*x521 - x3732 - x3740)
      x3742 = x1189*(x1360*x700 + x1430*(-x3040 - x3041 - x3044 - x3045 
     &+ x3047 + x3049 - x3051 + x3052 + x3053 + x3055 + x3056 - x3060) -
     & x3119* x3203*x3309)
      x3743 = x1361*x3656
      x3744 = x127*x134
      x3745 = 0.00578306637888076d0*x80
      x3746 = 0.25d0*x39
      x3747 = x3177*x3746 + x450*(3.34438567425411d-5*x114*x430 - x2939*
     &x3744*x3745 + x3205*x3744)
      x3748 = x204*(x3742*x521 + x3743 + x3747)
      x3749 = x3121*x521
      x3750 = -x1195*x183 + x3624
      x3751 = 0.0625d0*x1474 + x3750
      x3752 = x3169 + x3749 + x3751
      x3753 = x1399*x3752
      x3754 = x2994*x3652
      x3755 = x3658*x39
      x3756 = x2997*x3652
      x3757 = 1.0d0*x3093
      x3758 = x3090*x3755
      x3759 = 0.5d0*x203
      x3760 = x3013*x3652
      x3761 = x3004*x3465
      x3762 = x186*(x3011 + x3761)
      x3763 = x3760*x3762
      x3764 = x1904*x3095
      x3765 = x3661*x3764
      x3766 = x3018*x3752
      x3767 = x1705*x2995
      x3768 = x199*x3121
      x3769 = x1432*x1926
      x3770 = x1427*x3768 - x214*x3742 + x3142*x3769 - x3214*(-x2995*x32
     &13 + x3066* x3767 + x3076)
      x3771 = 0.04375d0*x3093
      x3772 = 0.021875d0*x203
      x3773 = x1443*x3768 + x3124*x3769 - x3214*(-x1441*x2996 + x3099*x3
     &767 + x3102) - x3742*x714
      x3774 = -x3085
      x3775 = 1.4d0*x3678 + x3774
      x3776 = x3087*x3775
      x3777 = gamma_cc*(x3107 + x3666 + x3667 - x3669)
      x3778 = x3652*x529
      x3779 = 12.6d0*x3778
      x3780 = x204*x3752
      x3781 = 8.4d0*x3780
      x3782 = x3756*x557
      x3783 = 4.2d0*x3782
      x3784 = x3129 + x3653 + x3659 - x3664
      x3785 = x3320 + 4.2d0*x3778 - 2.8d0*x3780 + 1.4d0*x3782
      x3786 = x238*(x2508*x3775 + x3785)
      x3787 = -x3137
      x3788 = 0.065625d0*x3678 + x3777 + x3787
      x3789 = 1.5d0*x3778
      x3790 = 0.5d0*x3782
      x3791 = x3144 + x3780 - x3789 - x3790
      x3792 = x204*(x3209*x521 - x3743 + x3747)
      x3793 = x3625 - x3637 - x461 - x463 + x465
      x3794 = x1399*x3793
      x3795 = x1104*x3652
      x3796 = x1105*x3755
      x3797 = x3191*x3660
      x3798 = x3018*x3793
      x3799 = x3645*x3646
      x3800 = x1398*x3609
      x3801 = x143*x624
      x3802 = 0.0625d0*x7
      x3803 = x3200*x3802
      x3804 = x3654 + x3801*x3803
      x3805 = x1399*x39
      x3806 = x3804*x3805
      x3807 = 0.0625d0*x630
      x3808 = x1807*x3807
      x3809 = x143*x3291
      x3810 = x3807*x624
      x3811 = x2*x2992
      x3812 = x3811*(x143*x3293*x3808 + 0.25d0*x3236 + 0.25d0*x3253 + x3
     &809*x3810)
      x3813 = x3408*x3609
      x3814 = x3274*x3280
      x3815 = x1410*x3609
      x3816 = x202*x3074*x552
      x3817 = x3815*x3816
      x3818 = x3267*x3804
      x3819 = 0.00157992477879376d0*x3409
      x3820 = x3275*x3819
      x3821 = 21.447975419913d0*x737
      x3822 = x1505*x3815
      x3823 = x3316 + x3674 - 0.00525820155841243d0*x3822
      x3824 = x2510*(x3318 - x3780 + x3789 + x3790)
      x3825 = 0.00375585825600888d0*x1478*x3322
      x3826 = x3684 - 0.00187792912800444d0*x3822 + x3825
      x3827 = x2510*(x2508*x3634 + x3785)
      x3828 = x3472*x3815
      x3829 = x201*x450
      x3830 = x3829*(x1377 + x3324)
      x3831 = x1410*x3626
      x3832 = x39*x528
      x3833 = x1379*x3832
      x3834 = x39*x556
      x3835 = x3834*x555
      x3836 = 0.021875d0*x3338
      x3837 = 0.0109375d0*x1379
      x3838 = x204*x3793
      x3839 = x1105*x3652
      x3840 = x238*(x3361 - x3838 + 0.5d0*x3839)
      x3841 = x238*(x3363 - 0.04375d0*x3838 + 0.021875d0*x3839)
      x3842 = 64.0d0*x3686
      x3843 = x3367*x3760
      x3844 = x1410*x3346
      x3845 = x3829*(x1377 + x3176)
      x3846 = x1104*x3834
      x3847 = 0.00375585825600888d0*x1410
      x3848 = x1505*x3847
      x3849 = 0.00390625d0*x3846
      x3850 = x1478*x3215
      x3851 = x3375 + x3847*x3850
      x3852 = 64.0d0*x3376
      x3853 = x3665*x3852
      x3854 = x238*x3826
      x3855 = 4096.0d0*x3671
      x3856 = x1379*x1482
      x3857 = gamma_cc*x1472
      x3858 = x3804*x3857
      x3859 = x3279*x3379
      x3860 = 0.25d0*rho_c
      x3861 = 0.25d0*rho_s
      x3862 = gamma_cc*x2
      x3863 = x3829*x3862*(x3860 + x3861)
      x3864 = x3863*(x1378*x3233 + x3252)
      x3865 = x1379*x3277
      x3866 = -64.0d0*x3387 + 0.030046866048071d0*x3393
      x3867 = x3379*x3819
      x3868 = x248*x3401
      x3869 = x3404*x3676
      x3870 = x2*x3412
      x3871 = x1379*x1472
      x3872 = x89*x90
      x3873 = x1476 + 0.35d0*x3872
      x3874 = x3411*x3873
      x3875 = x143*x96 + x3651
      x3876 = x3534*x3875
      x3877 = x2*x3416
      x3878 = x3411*x96
      x3879 = x3473*x3609
      x3880 = x3427 + x3689 + 0.0105164031168249d0*x3879
      x3881 = rho_s*x1505
      x3882 = -0.00751171651201775d0*x3322*x3881
      x3883 = x3693 + 0.00375585825600888d0*x3879 + x3882
      x3884 = x3469*x3660
      x3885 = x3829*(x1518 + x3458)
      x3886 = 0.25d0*x3885
      x3887 = x1500*x3662
      x3888 = x3652*x3887
      x3889 = x1520*x3832
      x3890 = x3473*x3752
      x3891 = x1520*x3834
      x3892 = 0.0109375d0*x3885
      x3893 = 0.0109375d0*x2997
      x3894 = x3494*x3760
      x3895 = x3473*x3793
      x3896 = 0.0109375d0*x3846
      x3897 = x1470*x3424
      x3898 = x238*x3883
      x3899 = x1482*x1520
      x3900 = x3508*x3652
      x3901 = x3281*x3409
      x3902 = 0.0722251327448578d0*x3901
      x3903 = x3529*x3658
      x3904 = x3863*(x1378*x1518 + x3520)
      x3905 = x1520*x3277
      x3906 = -64.0d0*x3513 + 0.060093732096142d0*x3516
      x3907 = 0.0210328062336497d0*x3690
      x3908 = x3301*x3408
      x3909 = x3281*x3908
      x3910 = x3404*x3691
      x3911 = x1472*x1520
      x3912 = x1379*x1503
      x3913 = rho_s*x3875
      x3914 = x3382*x3908
      x3915 = x2*x3396
      x3916 = x3383*x3409
      x3917 = x2*x3683
      x3918 = x2*x3545
      x3919 = x1503*x1520
      x3920 = x3378*x3541
      x3921 = x3652*x3920
      x3922 = -0.00451407079655361d0*x3551
      x3923 = x3079*x521
      x3924 = x3750 + 0.0625d0*x3872
      x3925 = x1542*(x2918 + x3923 + x3924 + x466)
      x3926 = x3566*x3875
      x3927 = x3556*x3875
      x3928 = x1542*x3652
      x3929 = x1419 - 0.5d0*x3928
      x3930 = x1548 - x3700 + x3701
      x3931 = x203*(x3563 - 1.4d0*x3928)
      x3932 = x1542*x3638
      x3933 = 0.04375d0*x3571
      x3934 = 0.0875d0*x3572 - 0.0875d0*x3573
      x3935 = x238*x3699
      x3936 = x201*x3875
      x3937 = x3394*(0.0625d0*x3147*x3655 + x3654)
      x3938 = x1410*x552
      x3939 = x3875*x3938
      x3940 = 0.120187464192284d0*x3074
      x3941 = x1439*x3073
      x3942 = 2.0d0*x3403*x561
      x3943 = x3699*x3942
      x3944 = x1418*x3598
      x3945 = 3.0d0*x3647
      x3946 = 2.0d0*x3702
      x3947 = rho_c*x3356
      x3948 = x1560*x3947
      x3949 = -x1418*x3603
      x3950 = x206*x40 + x229*x97
      x3951 = 0.5d0*x3950
      x3952 = x204*x3951
      x3953 = x230 - x3952
      x3954 = x204*x3950
      x3955 = 1.4d0*x3954
      x3956 = x233 - x3955
      x3957 = x238*x3956 + 32768.0d0
      x3958 = x243 - x3953*x3957
      x3959 = x248*x3958
      x3960 = x460*x704
      x3961 = x3625 + x3960 + x525
      x3962 = x204*x3961
      x3963 = x3950*x529
      x3964 = -x3951*x558 - x3962 + 1.5d0*x3963 + x710
      x3965 = x3950*x558
      x3966 = x238*(-x2508*x3956 - 2.8d0*x3962 + 4.2d0*x3963 - 1.4d0*x39
     &65 + x721)
      x3967 = x247*(-x3953*x3966 - x3957*x3964 + x735)
      x3968 = x247*x3958
      x3969 = x1075 + x3955
      x3970 = x238*x3969
      x3971 = -x3970 + 32768.0d0
      x3972 = x1093 + x1161*x460 + x3625
      x3973 = x204*x3972
      x3974 = x1105*x3951
      x3975 = x1164 + x3973 + x3974
      x3976 = 0.04375d0*x3973
      x3977 = 0.021875d0*x3950
      x3978 = x1105*x3977
      x3979 = x1170 + x3976 + x3978
      x3980 = x1172 + x3952
      x3981 = x238*x3980
      x3982 = 64.0d0*x3981
      x3983 = x1216 - x3971*x3975 + x3979*x3982
      x3984 = x248*x3983
      x3985 = x1401*x40
      x3986 = x1418*x97
      x3987 = -x3985 + x3986
      x3988 = x1399*x3987
      x3989 = 0.25d0*x1393
      x3990 = x3657*x7*x97 + x3989
      x3991 = x2992*x3990
      x3992 = x3018*x3987
      x3993 = x3663*x3992
      x3994 = x1434 - 1.0d0*x3988 - x3991 + x3993
      x3995 = 0.04375d0*x3988
      x3996 = 0.04375d0*x3991
      x3997 = x3668*x3992
      x3998 = gamma_cc*(x1446 - x3995 - x3996 + x3997)
      x3999 = x1436 - 0.065625d0*x3954 + x3998
      x4000 = x1450*x3999
      x4001 = x247*(x1362 - x3971*x3994 + x3980*x4000)
      x4002 = x1393*x3396
      x4003 = x1410*x1505
      x4004 = x3987*x4003
      x4005 = x1481 + x4002 - 0.00525820155841243d0*x4004
      x4006 = x204*x3987
      x4007 = x3677 + 0.5d0*x4006
      x4008 = x238*x4007
      x4009 = x4005*x4008
      x4010 = x3970 - 32768.0d0
      x4011 = x1393*x3683
      x4012 = x3685 - 0.00187792912800444d0*x4004 + x4011
      x4013 = x4010*x4012
      x4014 = x4009 + x4013
      x4015 = x3473*x3987
      x4016 = x1508 - x1532*x3396 + 0.0105164031168249d0*x4015
      x4017 = x4008*x4016
      x4018 = -x1532*x3683 + x3694 + 0.00375585825600888d0*x4015
      x4019 = x4010*x4018
      x4020 = x4017 + x4019
      x4021 = x1542*x3950
      x4022 = x1545 - 0.5d0*x4021
      x4023 = 2.1d0*x3954
      x4024 = x212*(x1551 - 1.4d0*x4021)
      x4025 = x1549 + x4023 - x4024
      x4026 = x1556*x4025
      x4027 = x3971*x4022 + x3980*x4026
      x4028 = x3705*x97
      x4029 = x204*(x1692 + x3707 + x4028)
      x4030 = x3961*x529
      x4031 = x1697*x3950
      x4032 = x3961*x558
      x4033 = x1720*x3950
      x4034 = x1719*x4033
      x4035 = x1932*x3950
      x4036 = x2500*x460
      x4037 = x204*(x2392 - x3717 + x3718 + x3719 - x3720 + x3721 - x372
     &2 + x3724 + x3725 + x3726 + x3728 + x3729 + x3733 + x4036)
      x4038 = x3972*x529
      x4039 = x1105*x3961
      x4040 = x3972*x558
      x4041 = x2410*x4033
      x4042 = x2506 - x3976 - x3978
      x4043 = x1160 + x3740
      x4044 = x204*(x2738 + x2806*x460 + x4043)
      x4045 = x159*x171
      x4046 = x469*(3.34438567425411d-5*x161*x494 - x2986*x3745*x4045 + 
     &x3205*x4045)
      x4047 = x204*(x2990*x3746*(x2957 + x3326) + x3742*x460 + x3743 + x
     &4046)
      x4048 = x3121*x460
      x4049 = x3111 + x3751 + x4048 + x524
      x4050 = x1399*x4049
      x4051 = x2994*x3987
      x4052 = x39*x3990
      x4053 = x2997*x3987
      x4054 = x3090*x4052
      x4055 = x3013*x3987
      x4056 = x3762*x4055
      x4057 = x3764*x3992
      x4058 = x3018*x4049
      x4059 = x3774 + 1.4d0*x4006
      x4060 = x3087*x4059
      x4061 = gamma_cc*(x3107 + x3995 + x3996 - x3997)
      x4062 = x3987*x529
      x4063 = 12.6d0*x4062
      x4064 = x204*x4049
      x4065 = 8.4d0*x4064
      x4066 = x3090*x3987
      x4067 = 4.2d0*x4066
      x4068 = x3129 + x3988 + x3991 - x3993
      x4069 = x3320 + 4.2d0*x4062 - 2.8d0*x4064 + 1.4d0*x4066
      x4070 = x238*(x2508*x4059 + x4069)
      x4071 = x3787 + 0.065625d0*x4006 + x4061
      x4072 = 1.5d0*x4062
      x4073 = 0.5d0*x3987
      x4074 = x3090*x4073
      x4075 = x3144 + x4064 - x4072 - x4074
      x4076 = x204*(x3182*x3746 + x3209*x460 + x3743 - x4046)
      x4077 = x3172 + x3215*x460 + x3751
      x4078 = x1399*x4077
      x4079 = x1104*x3987
      x4080 = x1105*x4052
      x4081 = x3018*x4077
      x4082 = 0.021875d0*x3987
      x4083 = x3979*x3980
      x4084 = x1398*x3950
      x4085 = x3803*x624*x97 + x3989
      x4086 = x3805*x4085
      x4087 = x3293*x97
      x4088 = x3291*x97
      x4089 = x3811*(0.25d0*x3240 + 0.25d0*x3263 + x3808*x4087 + x3810*x
     &4088)
      x4090 = x3408*x3950
      x4091 = x1410*x3950
      x4092 = x3816*x4091
      x4093 = x3267*x4085
      x4094 = x3950*x4003
      x4095 = x3316 + x4002 - 0.00525820155841243d0*x4094
      x4096 = x2510*(x3318 - x4064 + x4072 + x4074)
      x4097 = x3825 + x4011 - 0.00187792912800444d0*x4094
      x4098 = x2510*(x2508*x3969 + x4069)
      x4099 = x3472*x4091
      x4100 = x201*x469
      x4101 = x4100*(x1391 + x3327)
      x4102 = x1393*x3832
      x4103 = x204*x4077
      x4104 = x238*(x1105*x4073 + x3361 + x4103)
      x4105 = x238*(x1105*x4082 + x3363 + 0.04375d0*x4103)
      x4106 = 64.0d0*x4012
      x4107 = x3367*x4055
      x4108 = x4100*(x3181 + x3237)
      x4109 = x3852*x3994
      x4110 = x238*x4097
      x4111 = 4096.0d0*x3999
      x4112 = x1393*x1482
      x4113 = x3857*x4085
      x4114 = x3862*x4100*(x3860 - x3861)
      x4115 = x4114*(x1392*x3237 + x3262)
      x4116 = x1393*x3277
      x4117 = x3404*x4005
      x4118 = x2*x3413
      x4119 = x1393*x1472
      x4120 = x3985 - x3986
      x4121 = x3534*x4120
      x4122 = x3473*x3950
      x4123 = x3396*x3429 + x3427 + 0.0105164031168249d0*x4122
      x4124 = x3429*x3683 + x3882 + 0.00375585825600888d0*x4122
      x4125 = x4100*(x3428 + x3453)
      x4126 = x3887*x3987
      x4127 = x1532*x3832
      x4128 = x3473*x4049
      x4129 = x1532*x3834
      x4130 = x3494*x4055
      x4131 = x4100*(x1530 + x3491)
      x4132 = x3473*x4077
      x4133 = x238*x4124
      x4134 = x1482*x1532
      x4135 = x3508*x3987
      x4136 = x3529*x3990
      x4137 = x4114*(x1392*x3451 + x3522)
      x4138 = x1532*x3277
      x4139 = 0.021875d0*x4134
      x4140 = 0.0210328062336497d0*x4015
      x4141 = x3404*x4016
      x4142 = x1472*x1532
      x4143 = x1393*x1503
      x4144 = rho_s*x3987
      x4145 = x1503*x1532
      x4146 = x3920*x3987
      x4147 = x3079*x460
      x4148 = x1542*(x2920 + x3924 + x4147 + x524)
      x4149 = x3566*x4120
      x4150 = x3556*x4120
      x4151 = x1542*x3987
      x4152 = x1419 - 0.5d0*x4151
      x4153 = x1548 - x4023 + x4024
      x4154 = x203*(x3563 - 1.4d0*x4151)
      x4155 = x1542*x3972
      x4156 = x238*x4022
      x4157 = x201*x4120
      x4158 = x3394*(x3147*x3802*x97 + x3989)
      x4159 = x3938*x4120
      x4160 = x3942*x4022
      x4161 = 3.0d0*x3981
      x4162 = 2.0d0*x4025
      x4163 = x200*x3625
      x4164 = x1925*x4163
      x4165 = x230 - x4164
      x4166 = 5.6d0*x4163
      x4167 = x212*x4166
      x4168 = x233 - x4167
      x4169 = x238*x4168 + 32768.0d0
      x4170 = x243 - x4165*x4169
      x4171 = x248*x4170
      x4172 = -2.0d0*x240 + x59
      x4173 = x228 + x3619 + x3960 + x4172 + 1.0d0*x49
      x4174 = x204*x4173
      x4175 = x204*x3625
      x4176 = x1719*x1925
      x4177 = -x3625*x4176 - x4174 + 6.0d0*x4175 + x710
      x4178 = x1926*x3625
      x4179 = x238*(-x2508*x4168 - 2.8d0*x4174 + 16.8d0*x4175 - 5.6d0*x4
     &178*x555 + x721)
      x4180 = x247*(-x4165*x4179 - x4169*x4177 + x735)
      x4181 = x247*x4170
      x4182 = x238*(x1075 + x4167)
      x4183 = -x4182 + 32768.0d0
      x4184 = x200*x3733
      x4185 = x1925*x4184
      x4186 = x1104*x3625
      x4187 = x1925*x198
      x4188 = x4186*x4187
      x4189 = x1164 + x4185 + x4188
      x4190 = x2810*x4184
      x4191 = x1441*x3625
      x4192 = x203*x4191
      x4193 = x2410*x4192
      x4194 = x1170 + x4190 + x4193
      x4195 = x1172 + x4164
      x4196 = x238*x4195
      x4197 = 64.0d0*x4196
      x4198 = x1216 - x4183*x4189 + x4194*x4197
      x4199 = x248*x4198
      x4200 = 4.0d0*x185
      x4201 = x200*x3751
      x4202 = x1420*x4201
      x4203 = x4200*x4202
      x4204 = x3472*x3751
      x4205 = x3018*x4204
      x4206 = 0.480749856769136d0*x4205
      x4207 = x200*x212
      x4208 = x1432*x4207
      x4209 = x1434 - x4203 + x4206 - x4208
      x4210 = x212*x4163
      x4211 = x3590*x4202
      x4212 = 0.0210328062336497d0*x4205
      x4213 = x3219*x4207
      x4214 = gamma_cc*(x1446 - x4211 + x4212 - x4213)
      x4215 = x1436 - 0.2625d0*x4210 + x4214
      x4216 = x1450*x4215
      x4217 = x247*(x1362 - x4183*x4209 + x4195*x4216)
      x4218 = x1545 - 2.0d0*x4163
      x4219 = 8.4d0*x4210
      x4220 = x212*(x1551 - x4166)
      x4221 = x1549 + x4219 - x4220
      x4222 = x1556*x4221
      x4223 = x4183*x4218 + x4195*x4222
      x4224 = x1720*x4163
      x4225 = x204*(x1793*x699 + x1920*x697 + x2208 + x2209 + x2212 + x2
     &214 + x2218 + x3706 + x4028 - 8.0d0*x564 + 2.0d0*x614 - 4.0d0*x732
     &)
      x4226 = x4173*x529
      x4227 = x4173*x558
      x4228 = x1715*x4178
      x4229 = x3625*x558
      x4230 = x204*(x3716 + x4036 + x4043)
      x4231 = x204*x3733
      x4232 = x1105*x4173
      x4233 = x3625*x4187
      x4234 = x2506 - x4190 - x4193
      x4235 = x198*x4192
      x4236 = x1696*(x1307*x2458 - 0.0625d0*x1809*x2763 + x1920*x2764 - 
     &0.0416666666666667d0*x2759 + 0.166666666666667d0*x2760*x2762 + x28
     &05*x3723 - 0.118510738215391d0*x2813 + 0.00844349967489228d0* x283
     &2 - 0.202643992197415d0*x2902 + 0.427480233540341d0*x2903 + 6.0d0*
     &x2905)
      x4237 = x2410*x3590
      x4238 = x4182 - 32768.0d0
      x4239 = x4172 - 1.0d0*x94
      x4240 = x3923 + x4147 + x4239 + x92
      x4241 = x1399*x4240
      x4242 = x1399*x3924
      x4243 = x204*x3022*(x3062*x460 + x3062*x521 + x3082)
      x4244 = x1420*x4200
      x4245 = x2997*x3924
      x4246 = x198*x4245
      x4247 = x3017*x3924
      x4248 = x187*x3012*x4247
      x4249 = x204*x3582
      x4250 = x3018*x4240
      x4251 = x186*x2419*x3095*x4247
      x4252 = x1925*x4201 + x3677
      x4253 = x204*x3924
      x4254 = 50.4d0*x4253
      x4255 = x1926*x4245
      x4256 = 16.8d0*x4255
      x4257 = x212*x3077
      x4258 = 192.0d0*x3104*x4257
      x4259 = 5.6d0*x4201
      x4260 = x212*x4259 + x3774
      x4261 = x3087*x4260
      x4262 = gamma_cc*(x3107 + x4211 - x4212 + x4213)
      x4263 = x3079*x714
      x4264 = 192.0d0*x4263
      x4265 = x204*x4240
      x4266 = 8.4d0*x4265
      x4267 = x3129 + x4203 - x4206 + x4208
      x4268 = x238*(x2508*x4260 - x3077*x3104*x720 + 16.8d0*x4253 + 5.6d
     &0*x4255 + 64.0d0*x4263 - 2.8d0*x4265)
      x4269 = x212*x4201
      x4270 = x3787 + x4262 + 0.2625d0*x4269
      x4271 = x214*x3079 - x3081*x4257 + x4187*x4245 + 6.0d0*x4253 - x42
     &65
      x4272 = -x1177*x3727 + x1209*x3656 - 2.0d0*x1210 - 0.125d0*x1214 +
     & 1.28244070062102d0*x1215 + x3730
      x4273 = x1420*x4272
      x4274 = x1189*x1696*(-x1212*x1359*x1429 - 0.0625d0*x3202*x3224 + 0
     &.5d0*x3208)
      x4275 = x3751*x645
      x4276 = x1500*x203*x3190
      x4277 = 0.480749856769136d0*x3472
      x4278 = x1441*x3751
      x4279 = 0.0210328062336497d0*x4272
      x4280 = x4194*x4195
      x4281 = x202*x4163
      x4282 = x1420*x3296*x3566
      x4283 = x203*x3625*x3901*x45
      x4284 = x1410*x189*x202*x3472*x3625
      x4285 = x3811*(x3293*x3801 + x3809 + x4087*x624 + x4088)
      x4286 = x1415*x3392*x542
      x4287 = x3005*x68 + x3333
      x4288 = x1417 + x3749 + x4048 + x4239
      x4289 = x238*x4252
      x4290 = 64.0d0*x4289
      x4291 = x1410*x1499
      x4292 = x3367*x3751
      x4293 = x3381*x3924
      x4294 = x3398*x3924
      x4295 = x1409*x1410
      x4296 = x3356*x3403*x3409
      x4297 = x3472*x4288
      x4298 = x3881*x4272
      x4299 = rho_s*x3215
      x4300 = x3510*x3751
      x4301 = x3511*x3751
      x4302 = x1542*x3751
      x4303 = x2997*x3751
      x4304 = x1542*x4288
      x4305 = x1419 - 2.0d0*x4201
      x4306 = x1548 - x4219 + x4220
      x4307 = x203*(x3563 - x4259)
      x4308 = 0.175d0*x198
      x4309 = x238*x4218
      x4310 = x3566*x3924
      x4311 = x3566*x3582
      x4312 = x1410*x189*x3924
      PBE_value = x96
      PBE_beta_value = x142*x40
      PBE_alpha_value = x179*x40
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x249 + x406)
      d1E(1) = x1073*(x1072 - x736 - x738*x739) + x1074 - x249
      d1E(2) = -rho_c*(-x1218 + x1354)
      d1E(3) = x1470*(-0.000244140625d0*x1452 + x1469)
      d1E(4) = x1497*x1499
      d1E(5) = x1499*x1541
      d1E(6) = -x1558*x1562
      d2E(1) = x2363*(-x1943*(-8.0d0*x1935*(-0.7d0*x1693 + 4.2d0*x1694 -
     & 1.4d0*x1695 - x1697*x713 + 4.2d0*x1722 + x185*x712 - x1931*(x1929
     &*x210 + x1930 - 0.04375d0*x527 - 0.04375d0*x559) - 0.7d0*x1932*x21
     &0 + x1934) + x1942 - x239*(-2.0d0*x1693 + 12.0d0*x1694 - 4.0d0*x16
     &95 - 24.0d0* x1697*x210 - x1715*x1718*x210 + 12.0d0*x1722 + x1928)
     & - 4.0d0* x711*x722) + x1944*x739 - x1945*x736 - x1946*x739 + x236
     &2) - x2364*x739 + x2366 - 9.5367431640625d-7*x736
      d2E(2) = x1218 + x2731*(x1217*x2521 - x1943*(-64.0d0*x1935*(-0.043
     &75d0*x2393 + 0.13125d0*x2394 - 0.04375d0*x2395 - 0.04375d0*x2396 -
     & 0.04375d0* x2409 + 0.13125d0*x2411 - x2507*x2508 + x2509) - x239*
     &(-x2393 + 3.0d0*x2394 - x2395 - x2396 - x2409 + 3.0d0*x2411 + x250
     &4) - x2507*x2510*x711 + x2520 - x722*(-x1095 - x1106 + x2505)) + x
     &2730 ) + x2733
      d2E(3) = -rho_c*(-x248*(-x1078*(x1094*x2740 + x2739 + x2746 + x280
     &8) + x1165* x1171*x2812 + x1175*(x1094*x2809 + 0.04375d0*x2739 + 0
     &.04375d0* x2746 + x2811) + x2841) + x2915)
      d2E(4) = 4.76837158203125d-7*rho_c*(-x1452*x738 + x247*(x1449*x148
     &8*(-x3088 + x3106*(x203*x3089 - 0.0875d0*x2923 - 0.0109375d0*x2993
     & - x2994* x3092 - x2999*x3094 + 0.04375d0*x3015 + x3019*x3096 + x3
     &021*x3097 + x3090*x3091 + x3105) + x3108*x3109 - x3114 - x3116 - x
     &3118 + x3128) - x1450*x3138*x3145 - x1491*(x1395*x2998*x557 - 6.0d
     &0* x1403*x2994 + x203*x2925 - 2.0d0*x2923 - 0.25d0*x2993 - x2999* 
     &x3000 + x3015 + x3016*x3019 + x3020*x3021 + x3084) + x3130*x3136 +
     & x3148) + x3168) - 4.76837158203125d-7*x1452 + 4.76837158203125d-7
     &*x2916
      d2E(5) = -x1073*(-x247*(x1078*(-0.25d0*x1105*x1395 + x3000*x3185 +
     & x3016*x3195 - 2.0d0*x3174 - 0.25d0*x3184 - x3193 + x3218) - x1165
     &*x1451 - x1171 *x1435*x2510 - x1175*(-x1105*x3091 + x3094*x3185 + 
     &x3096*x3195 - 0.0875d0*x3174 - 0.0109375d0*x3184 - 0.04375d0*x3193
     & + x3221) + x3222*x3223 + x3225) + x3230)
      d2E(6) = -x3314*(-x3311*(-x1078*(2.0d0*x3231 + 1.0d0*x3232 + 0.25d
     &0*x3265 - x3266 *x3267 + x3268*x3273*x3275 - 0.961499713538272d0*x
     &3278 + x3298) - x1173*x3305*(6.0d0*x1447 - 0.2625d0*x211 + x3299 -
     & x72*(0.0875d0* x3231 + 0.04375d0*x3232 + 0.0109375d0*x3265 - x326
     &7*x3300 + x3268 *x3271*x3274*x3302 - 0.0420656124672994d0*x3278 + 
     &x3304)) + x1435 *x1448*x3306 + x3310) + x3313)
      d2E(7) = x3357*(-x1490 + 0.015625d0*x1496 + x3355*(-x1078*(-x2925 
     &+ x3020*x3342 + 0.25d0*x3328 + 0.25d0*x3330 + x3339 - x3340*x3341 
     &+ x3345) - x1175*(x2508*x3317 + x3089 - x3097*x3342 - 0.0109375d0*
     &x3328 - 0.0109375d0*x3330 - 0.04375d0*x3339 + x3341*x3346 + x3354)
     & + x1497*x738 - x3317*x3319 - x3321*x3323))
      d2E(8) = x1499*(64.0d0*x1485*x3362 - 64.0d0*x1489*(-x3194*x3346 + 
     &0.0109375d0* x3365 + 0.0109375d0*x3366 + 0.04375d0*x3368 + x3373) 
     &+ x1491*( x1493*x3215 - x3194*x3340 + 0.25d0*x3365 + 0.25d0*x3366 
     &+ x3368 + 64.0d0*x3375) + 64.0d0*x1495*x3364)
      d2E(9) = -x3402*(x1078*(0.0078125d0*x1483 + x3264*x3395 + 0.001128
     &5176991384d0* x3272*x3380 - 0.00751171651201775d0*x3315 - x3387 - 
     &0.000938964564002219d0*x3389 - 0.000938964564002219d0*x3391 + 0.00
     &046948228200111d0*x3393) - x1174*(gamma_cc*x3264*x3396 + 0.0546875
     &d0*x1483 - 0.0525820155841243d0*x3315 + x3380*x3397 - 0.0026291007
     &7920621d0*x3389 - 0.00262910077920621d0*x3391 + x3400 ) + x1448*x3
     &323 + x3317*x3377)
      d2E(10) = x3425*(x1485*x3405 + x3421*(x1477*x3411 + 0.005258201558
     &41243d0*x3388 + x3396*x3420 + x3397*x3407) - x3423*(0.072225132744
     &8578d0*x1418* x3410 + x1472*x3266 + x3273*x3407 + x3420*x3422))
      d2E(11) = x3357*(-x1536 + 0.015625d0*x1540 + x3355*(x1078*(x2998*x
     &3461 - x3422* x3460 + 0.75d0*x3434 - x3471 - 0.480749856769136d0*x
     &3474 - 1.44224957030741d0*x3475 + x3481) - x1175*(x2508*x3431 + x2
     &997* x3482 - x3396*x3460 + 0.0328125d0*x3434 - 0.04375d0*x3471 - 0
     &.0210328062336497d0*x3474 - 0.0630984187009491d0*x3475 + x3487) + 
     &x1541*x738 - x3319*x3431 - x3321*x3432))
      d2E(12) = x3506*(-x1489*(x1104*x3482 + x3396*x3492 - 0.04375d0*x34
     &95 + 0.0210328062336497d0*x3496 + x3501) + x1535*x3362 + x1539*x33
     &64 + x3505*(x3422*x3492 + x3461*x3502 - x3495 + 0.480749856769136d
     &0* x3496 + x3504))
      d2E(13) = -x3402*(-x1078*(0.0150234330240355d0*x1504 - 0.0078125d0
     &*x1534 - 0.00187792912800444d0*x3390*x3514 - x3395*x3524 - 0.00225
     &703539827681d0*x3509 - x3513 + 0.000938964564002219d0* x3515 + 0.0
     &00938964564002219d0*x3516) + x1174*(-gamma_cc*x3527 - x3300*x3529 
     &- 0.0630984187009491d0*x3426 - x3430*x3525 - 0.00631969911517506d0
     &*x3509 + 0.00262910077920621d0*x3515 - x3526 + x3528 + x3531) + x1
     &448*x3432 + x3377*x3431)
      d2E(14) = x3506*(x1485*x3532 - x1489*(x1503*x3300 + x3527 + 0.0063
     &1969911517506d0* x3533 + x3537 - 0.00262910077920621d0*x3538) + x1
     &535*x3405 + x3505*(x1503*x3266 + x3422*x3524 + 0.144450265489716d0
     &*x3533 - 0.060093732096142d0*x3538 + 0.144450265489716d0*x3539))
      d2E(15) = x3425*(x1535*x3532 - x3421*(-x3396*x3550 - 0.01263939823
     &03501d0*x3540 + x3543 + 0.0105164031168249d0*x3544) + x3423*(-x342
     &2*x3550 - 0.288900530979431d0*x3540 + 0.240374928384568d0*x3544 - 
     &0.288900530979431d0*x3551))
      d2E(16) = x3570*(rho_c*(-x1558*x3552 + x185*(x1488*x1556*(x3088 + 
     &x3114 + x3116 + x3118 + x3564*x3565 + x3569 + x720*(x3092*x3566 + 
     &0.0875d0*x3553 + 0.0875d0*x3557 + x3568)) - 2.0d0*x1491*(x1403*x20
     &0*x3554 + x3553 + x3557 + x3558) + 2.0d0*x3136*x3560 + x3145*x3561
     &*x3562)) - x1558*x645)
      d2E(17) = -x3578*(0.015625d0*x1078*x3575 + 0.015625d0*x1165*x1557 
     &- x1171*x3576 - 0.04375d0*x1174*x3575 + x3222*x3577)
      d2E(18) = x3596*(x1488*x3594*(-12.6d0*x1486 + 96.0d0*x3108 - x3554
     &*x3564 + x3588 + x3593*(gamma_cc*x3589 - 0.175d0*x3579 + 0.0210328
     &062336497d0* x3580 + x3592)) - x1491*(gamma_cc*x1494 - 2.0d0*x3579
     & + 0.240374928384568d0*x3580 + x3584) + x3130*x3561*x3587 - x3138*
     & x3560*x3586)
      d2E(19) = -x3602*(-x1078*x1495 + x1553*x3323 - x3317*x3597 + x3317
     &*x3601 + x3600*( 0.0210328062336497d0*x1473 + x3589 + x3599))
      d2E(20) = -x3602*(-x1078*x1539 + x1553*x3432 - x3431*x3597 + x3431
     &*x3601 + x3600*( x3526 - x3528 + x3604))
      d2E(21) = -x3608*(-0.75d0*x1078*x3560 + x1173*x3607*(6.0d0*x1552 -
     & 16.8d0*x211 + x212*(8.4d0*x3559 + x3606) + x3605) + x1553*x3576)
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x3618 + x406)
      d1E(1) = x1073*(x1072 - x3632 - x3633*x738) + x1074 - x3618
      d1E(2) = -rho_c*(x1354 - x3650)
      d1E(3) = x1470*(x1469 - 0.000244140625d0*x3673)
      d1E(4) = x3506*x3688
      d1E(5) = x3506*x3697
      d1E(6) = -x1562*x3704
      d2E(1) = x2363*(-x1943*(x1942 - x3612*x3715*(-x1931*(x1930 - 0.043
     &75d0*x3627 + 0.065625d0*x3628 - 0.021875d0*x3630) + x1934 + x3554*
     &x3615 - 0.7d0*x3708 + 4.2d0*x3709 - 4.2d0*x3710 - 1.4d0*x3711 + 2.
     &1d0* x3713 - 0.35d0*x3714) - x3616*(x1928 - 2.0d0*x3708 + 12.0d0*x
     &3709 - 12.0d0*x3710 - 4.0d0*x3711 + 6.0d0*x3713 - 1.0d0*x3714) - 4
     &.0d0 *x3629*x3631) + x1944*x3633 - x1945*x3632 - x1946*x3633 + x23
     &62) - x2364*x3633 + x2366 - 9.5367431640625d-7*x3632
      d2E(2) = x2731*(-x1943*(-x2510*x3612*(-x2408*x3643 - x2508*x3739 +
     & x2509 - 0.04375d0*x3734 + 0.13125d0*x3735 - 0.04375d0*x3736 - 0.0
     &4375d0* x3737 + 0.065625d0*x3738) - x2510*x3629*x3739 + x2520 - x3
     &616*( -x2408*x3610 + x2504 - x3734 + 3.0d0*x3735 - x3736 - x3737 +
     & 1.5d0*x3738) - x3631*(x2505 - x3639 - x3640)) + x2521*x3649 + x27
     &30) + x2733 + x3650
      d2E(3) = -rho_c*(-x248*(x2812*x3641*x3645 + x2841 - x3636*(x2740*x
     &3638 + x2745* x3610 + x2808 + x3741) + x3648*(x2745*x3643 + x2809*
     &x3638 + x2811 + 0.04375d0*x3741)) + x2915)
      d2E(4) = 4.76837158203125d-7*rho_c*(x247*(-x1449*x3679*(-x3106*(-x
     &1929*x3755 - x3096*x3766 + 0.04375d0*x3748 + 0.0875d0*x3753 - 0.13
     &125d0*x3754 - x3756*x3771 - 0.04375d0*x3758 + x3763*x3772 + 0.0157
     &746046752373d0*x3765 + x3773) + x3109*x3777 + x3128 + x3776 + x377
     &9 - x3781 + x3783) + x1450*x3788*x3791 + x3148 + x3682*( -x3016*x3
     &766 + x3748 + 2.0d0*x3753 - 3.0d0*x3754 - x3755*x530 - x3756*x3757
     & - x3758 + x3759*x3763 + 0.360562392576852d0*x3765 + x3770) - x378
     &4*x3786) + x3168 - x3673*x738) + 4.76837158203125d-7 *x2916 - 4.76
     &837158203125d-7*x3673
      d2E(5) = -x1073*(-x247*(-x2510*x3645*x3665 + x3223*x3799 + x3225 +
     & x3636*(-x3016* x3798 + x3218 - x3757*x3795 + x3759*x3797 - x3792 
     &+ 2.0d0*x3794 - x3796) - x3641*x3672 - x3648*(-x3096*x3798 + x3221
     & - x3771*x3795 + x3772*x3797 - 0.04375d0*x3792 + 0.0875d0*x3794 - 
     &0.04375d0* x3796)) + x3230)
      d2E(6) = -x3314*(-x3311*(-x3305*x3646*(x3299 - 0.13125d0*x3613 + 6
     &.0d0*x3670 - x72*(x3304 + x3609*x3820 + 0.04375d0*x3800 + 0.175d0*
     &x3806 + 0.04375d0*x3812 - 0.0210328062336497d0*x3817 - 0.021032806
     &2336497d0*x3818)) + x3306*x3665*x3671 + x3310 - x3636* (x3298 + x3
     &800 + 4.0d0*x3806 + x3812 + x3813*x3814 - 0.480749856769136d0*x381
     &7 - 0.480749856769136d0*x3818)) + x3313)
      d2E(7) = x1498*(rho_c*(-x3636*(x3338*x3610 - x3340*x3831 + x3345 +
     & x3654*x3835 + 0.360562392576852d0*x3828 + 0.25d0*x3830 - 0.75d0*x
     &3833) - x3648* (x2508*x3823 + x3346*x3831 + x3354 - x3609*x3836 - 
     &0.0157746046752373d0*x3828 - 0.0109375d0*x3830 + 0.0328125d0* x383
     &3 - x3835*x3837) + x3688*x3821 - x3823*x3824 - x3826*x3827) + 64.0
     &d0*x3681 + 64.0d0*x3687)
      d2E(8) = x3506*(x3676*x3840 + x3680*(x3373 + x3793*x3844 + x3837*x
     &3846 - 0.021875d0*x3843 + 0.0109375d0*x3845) + x3682*(x1379*x3849 
     &+ x3793*x3848 - 0.0078125d0*x3843 + 0.00390625d0*x3845 + x3851) + 
     &x3841*x3842)
      d2E(9) = -x3868*(x3636*(-x3340*x3815 + x3813*x3859 + 0.5d0*x3856 -
     & 0.240374928384568d0*x3858 + x3864 - 0.060093732096142d0*x3865 + x
     &3866) - x3648*(x3400 + x3609*x3867 - 0.0262910077920621d0*x3822 + 
     &0.0546875d0*x3856 - 0.0105164031168249d0*x3858 + 0.04375d0* x3864 
     &- 0.00262910077920621d0*x3865) + x3823*x3853 + x3854*x3855)
      d2E(10) = x3506*(-x3680*(x3396*x3870 + x3396*x3877 + 0.00525820155
     &841243d0*x3871 + x3874 - 0.00157992477879376d0*x3876) - x3682*(x36
     &83*x3870 + x3683 *x3877 + 0.00187792912800444d0*x3871 - 0.00056425
     &8849569202d0* x3876 + x3878) + 128.0d0*x3686*x3869)
      d2E(11) = x1498*(rho_c*(x3636*(x2998*x3891 + x3481 + 0.5d0*x3884 -
     & x3886 + 0.721124785153704d0*x3888 + 0.75d0*x3889 - 0.480749856769
     &136d0* x3890) - x3648*(x2508*x3880 + x3487 + 0.021875d0*x3884 + 0.
     &0315492093504746d0*x3888 + 0.0328125d0*x3889 - 0.0210328062336497d
     &0*x3890 + x3891*x3893 - x3892) + x3697*x3821 - x3824*x3880 - x3827
     &*x3883) + 64.0d0*x3692 + 64.0d0*x3696)
      d2E(12) = x3897*(0.015625d0*x3680*(x1520*x3896 + x3501 + x3892 + 0
     &.021875d0*x3894 - 0.0210328062336497d0*x3895) + 0.000244140625d0*x
     &3682*(x3502* x3891 + x3504 + x3886 + 0.5d0*x3894 - 0.4807498567691
     &36d0*x3895) + 0.015625d0*x3691*x3840 + x3695*x3841)
      d2E(13) = -x3868*(-x3636*(-0.480749856769136d0*x3690 - 0.5d0*x3899
     & + x3900*x3902 - 0.480749856769136d0*x3903 + x3904 + 0.06009373209
     &6142d0*x3905 + x3906) + x3648*(x3531 - 0.0315492093504746d0*x3879 
     &- 0.0546875d0* x3899 + x3900*x3909 - 0.0210328062336497d0*x3903 + 
     &0.04375d0* x3904 + 0.00262910077920621d0*x3905 - x3907) + x3853*x3
     &880 + x3855*x3898)
      d2E(14) = x3506*(-x3680*(x3517*x3915 + x3521*x3915 - x3536*x3873 +
     & 0.00262910077920621d0*x3911 - 0.00525820155841243d0*x3912 + x3913
     & *x3914) - x3682*(x3517*x3917 + x3521*x3917 - x3536*x96 + 0.000938
     &964564002219d0*x3911 - 0.00187792912800444d0*x3912 + x3913*x3916) 
     &+ 64.0d0*x3695*x3869 + x3842*x3910)
      d2E(15) = x3506*(x3680*(-x3396*x3918 + x3543 - x3548*x3915 + 0.010
     &5164031168249d0* x3919 + 0.00631969911517506d0*x3921) + x3682*(-x3
     &548*x3917 - x3683*x3918 + 0.00375585825600888d0*x3919 + 0.00225703
     &539827681d0 *x3921 + x3922) + 128.0d0*x3695*x3910)
      d2E(16) = x3570*(rho_c*(x185*(-x1556*x3679*(x3565*x3931 + x3569 - 
     &x3776 - x3779 + x3781 - x3783 + x720*(x3568 + 0.0875d0*x3925 - 0.1
     &3125d0*x3926 - 0.04375d0*x3927)) + x3562*x3791*x3930 - 2.0d0*x3682
     &*(x3558 + x3925 - 1.5d0*x3926 - 0.5d0*x3927) - 2.0d0*x3786*x3929) 
     &- x3552* x3704) - x3704*x645)
      d2E(17) = -x3578*(x3577*x3799 + 0.015625d0*x3636*(-x3571*x3610 + x
     &3574 - x3932) + 0.015625d0*x3641*x3703 - x3645*x3935 - 0.5d0*x3647
     &*(-x3609*x3933 - 0.0875d0*x3932 + x3934))
      d2E(18) = x3596*(x3586*x3788*x3929 + x3587*x3784*x3930 - x3594*x36
     &79*(-x3554*x3931 + x3588 + x3593*(x3592 + 0.0875d0*x3936 + 0.0875d
     &0*x3937 - x3939* x3941) + 6.3d0*x3678 + 96.0d0*x3777) - x3682*(x35
     &84 + x3936 + x3937 - x3939*x3940))
      d2E(19) = -x3948*(-x3636*(-0.00375585825600888d0*x3675 + 0.0078125
     &d0*x3856 + x3944 ) + x3647*(-x3346*x3660 + x3599 + 0.021875d0*x385
     &6) - x3823*x3943 + x3823*x3945 + x3854*x3946)
      d2E(20) = -x3948*(-x3636*(0.00751171651201775d0*x3690 + 0.0078125d
     &0*x3899 + x3949 ) + x3647*(x3604 + 0.021875d0*x3899 + x3907) - x38
     &80*x3943 + x3880*x3945 + x3898*x3946)
      d2E(21) = -x3608*(x3607*x3646*(x212*(x3606 - 4.2d0*x3928) + x3605 
     &- 8.4d0*x3613 + 6.0d0*x3701) - 0.75d0*x3636*x3929 + x3702*x3935)
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(x3959 + x406)
      d1E(1) = x1073*(x1072 - x3967 - x3968*x738) + x1074 - x3959
      d1E(2) = -rho_c*(x1354 - x3984)
      d1E(3) = x1470*(x1469 - 0.000244140625d0*x4001)
      d1E(4) = x3506*x4014
      d1E(5) = x3506*x4020
      d1E(6) = -x1562*x4027
      d2E(1) = x2363*(-x1943*(x1942 - x3715*x3953*(-x1931*(x1930 - 0.043
     &75d0*x3962 + 0.065625d0*x3963 - 0.021875d0*x3965) + x1934 + x3554*
     &x3956 - 0.7d0*x4029 + 4.2d0*x4030 - 4.2d0*x4031 - 1.4d0*x4032 + 2.
     &1d0* x4034 - 0.35d0*x4035) - x3957*(x1928 - 2.0d0*x4029 + 12.0d0*x
     &4030 - 12.0d0*x4031 - 4.0d0*x4032 + 6.0d0*x4034 - 1.0d0*x4035) - 4
     &.0d0 *x3964*x3966) + x1944*x3968 - x1945*x3967 - x1946*x3968 + x23
     &62) - x2364*x3968 + x2366 - 9.5367431640625d-7*x3967
      d2E(2) = x2731*(-x1943*(-x2510*x3953*(-x2408*x3977 - x2508*x4042 +
     & x2509 - 0.04375d0*x4037 + 0.13125d0*x4038 - 0.04375d0*x4039 - 0.0
     &4375d0* x4040 + 0.065625d0*x4041) - x2510*x3964*x4042 + x2520 - x3
     &957*( -x2408*x3951 + x2504 - x4037 + 3.0d0*x4038 - x4039 - x4040 +
     & 1.5d0*x4041) - x3966*(x2505 - x3973 - x3974)) + x2521*x3983 + x27
     &30) + x2733 + x3984
      d2E(3) = -rho_c*(-x248*(x2812*x3975*x3979 + x2841 - x3971*(x2740*x
     &3972 + x2745* x3951 + x2808 + x4044) + x3982*(x2745*x3977 + x2809*
     &x3972 + x2811 + 0.04375d0*x4044)) + x2915)
      d2E(4) = 4.76837158203125d-7*rho_c*(x247*(-x1449*x4007*(-x3106*(-x
     &1929*x4052 - x3096*x4058 - x3771*x4053 + x3772*x4056 + x3773 + 0.0
     &4375d0*x4047 + 0.0875d0*x4050 - 0.13125d0*x4051 - 0.04375d0*x4054 
     &+ 0.0157746046752373d0*x4057) + x3109*x4061 + x3128 + x4060 + x406
     &3 - x4065 + x4067) + x1450*x4071*x4075 + x3148 + x4010*(-x3016* x4
     &058 - x3757*x4053 + x3759*x4056 + x3770 + x4047 + 2.0d0*x4050 - 3.
     &0d0*x4051 - x4052*x530 - x4054 + 0.360562392576852d0*x4057) - x406
     &8*x4070) + x3168 - x4001*x738) + 4.76837158203125d-7*x2916 - 4.768
     &37158203125d-7*x4001
      d2E(5) = -x1073*(-x247*(-x2510*x3979*x3994 + x3223*x4083 + x3225 +
     & x3971*(x3016* x4081 + x3192*x4073 + x3218 - x3757*x4079 - x4076 -
     & 2.0d0*x4078 - x4080) - x3975*x4000 - x3982*(x3096*x4081 + x3192*x
     &4082 + x3221 - x3771*x4079 - 0.04375d0*x4076 - 0.0875d0*x4078 - 0.
     &04375d0*x4080 )) + x3230)
      d2E(6) = -x3314*(-x3311*(-x3305*x3980*(x3299 - 0.13125d0*x3954 + 6
     &.0d0*x3998 - x72*(x3304 + x3820*x3950 + 0.04375d0*x4084 + 0.175d0*
     &x4086 + 0.04375d0*x4089 - 0.0210328062336497d0*x4092 - 0.021032806
     &2336497d0*x4093)) + x3306*x3994*x3999 + x3310 - x3971* (x3298 + x3
     &814*x4090 + x4084 + 4.0d0*x4086 + x4089 - 0.480749856769136d0*x409
     &2 - 0.480749856769136d0*x4093)) + x3313)
      d2E(7) = x1498*(rho_c*(x3821*x4014 - x3971*(-x1410*x3340*x3961 + x
     &3338*x3951 + x3345 + x3835*x3989 + 0.360562392576852d0*x4099 + 0.2
     &5d0*x4101 - 0.75d0*x4102) - x3982*(-0.0109375d0*x1393*x3835 + x250
     &8*x4095 + x3354 - x3836*x3950 + x3844*x3961 - 0.0157746046752373d0
     &*x4099 - 0.0109375d0*x4101 + 0.0328125d0*x4102) - x4095*x4096 - x4
     &097* x4098) + 64.0d0*x4009 + 64.0d0*x4013)
      d2E(8) = x3506*(x4005*x4104 + x4008*(x1393*x3896 + x3373 - x3844*x
     &4077 - 0.021875d0*x4107 + 0.0109375d0*x4108) + x4010*(x1393*x3849 
     &- x3848*x4077 + x3851 - 0.0078125d0*x4107 + 0.00390625d0*x4108) + 
     &x4105*x4106)
      d2E(9) = -x3868*(x3971*(-x3340*x4091 + x3859*x4090 + x3866 + 0.5d0
     &*x4112 - 0.240374928384568d0*x4113 + x4115 - 0.060093732096142d0*x
     &4116) - x3982*(x3400 + x3867*x3950 - 0.0262910077920621d0*x4094 + 
     &0.0546875d0*x4112 - 0.0105164031168249d0*x4113 + 0.04375d0*x4115 -
     & 0.00262910077920621d0*x4116) + x4095*x4109 + x4110*x4111)
      d2E(10) = x3506*(-x4008*(x3396*x4118 + x3419*x3915 + x3874 + 0.005
     &25820155841243d0 *x4119 + 0.00157992477879376d0*x4121) - x4010*(x3
     &419*x3917 + x3683*x4118 + x3878 + 0.00187792912800444d0*x4119 + 0.
     &000564258849569202d0*x4121) + 128.0d0*x4012*x4117)
      d2E(11) = x1498*(rho_c*(x3821*x4020 + x3971*(-x2998*x4129 + x3470*
     &x4073 + x3481 - 0.25d0*x4125 + 0.721124785153704d0*x4126 - 0.75d0*
     &x4127 - 0.480749856769136d0*x4128) - x3982*(x2508*x4123 + x3470*x4
     &082 + x3487 - x3893*x4129 - 0.0109375d0*x4125 + 0.0315492093504746
     &d0* x4126 - 0.0328125d0*x4127 - 0.0210328062336497d0*x4128) - x409
     &6* x4123 - x4098*x4124) + 64.0d0*x4017 + 64.0d0*x4019)
      d2E(12) = x3897*(0.015625d0*x4008*(-x1532*x3896 + x3501 + 0.021875
     &d0*x4130 + 0.0109375d0*x4131 + 0.0210328062336497d0*x4132) + 0.000
     &244140625d0*x4010*(-x3502*x4129 + x3504 + 0.5d0*x4130 + 0.25d0*x41
     &31 + 0.480749856769136d0*x4132) + 0.015625d0*x4016* x4104 + x4018*
     &x4105)
      d2E(13) = -x3868*(-x3971*(x3902*x4135 + x3906 - 0.480749856769136d
     &0*x4015 + 0.5d0* x4134 - 0.480749856769136d0*x4136 - x4137 - 0.060
     &093732096142d0* x4138) + x3982*(-x3429*x3525 + x3531 + x3909*x4135
     & - 0.0315492093504746d0*x4122 - 0.0210328062336497d0*x4136 - 0.043
     &75d0*x4137 - 0.00262910077920621d0*x4138 + x4139 - x4140) + x4109*
     &x4123 + x4111*x4133)
      d2E(14) = x3506*(x4008*(x3518*x3915 + x3523*x3915 + x3537 - x3914*
     &x4144 + 0.00262910077920621d0*x4142 + 0.00525820155841243d0*x4143)
     & + x4010*(x3518*x3917 + x3523*x3917 + 0.00225703539827681d0*x3539 
     &- x3916*x4144 + 0.000938964564002219d0*x4142 + 0.00187792912800444
     &d0*x4143) + 64.0d0*x4018*x4117 + x4106*x4141)
      d2E(15) = x3506*(x4008*(x3543 - x3546*x3915 - x3549*x3915 - 0.0105
     &164031168249d0* x4145 + 0.00631969911517506d0*x4146) + x4010*(-x35
     &46*x3917 - x3549*x3917 + x3922 - 0.00375585825600888d0*x4145 + 0.0
     &0225703539827681d0*x4146) + 128.0d0*x4018*x4141)
      d2E(16) = x3570*(rho_c*(x185*(-x1556*x4007*(x3565*x4154 + x3569 - 
     &x4060 - x4063 + x4065 - x4067 + x720*(x3568 + 0.0875d0*x4148 + 0.1
     &3125d0*x4149 + 0.04375d0*x4150)) + x3562*x4075*x4153 - 2.0d0*x4010
     &*(x3558 + x4148 + 1.5d0*x4149 + 0.5d0*x4150) - 2.0d0*x4070*x4152) 
     &- x3552* x4027) - x4027*x645)
      d2E(17) = -x3578*(x3577*x4083 + 0.015625d0*x3971*(-x3571*x3951 + x
     &3574 - x4155) + 0.015625d0*x3975*x4026 - x3979*x4156 - 0.5d0*x3981
     &*(-x3933*x3950 + x3934 - 0.0875d0*x4155))
      d2E(18) = x3596*(x3586*x4071*x4152 + x3587*x4068*x4153 - x3594*x40
     &07*(-x3554*x4154 + x3588 + x3593*(x3592 + x3941*x4159 - 0.0875d0*x
     &4157 + 0.0875d0* x4158) + 6.3d0*x4006 + 96.0d0*x4061) - x4010*(x35
     &84 + x3940*x4159 - 1.0d0*x4157 + x4158))
      d2E(19) = -x3948*(-x3971*(-x3848*x3987 + x3944 + 0.0078125d0*x4112
     &) + x3981*(x3599 - x3844*x3987 + 0.021875d0*x4112) - x4095*x4160 +
     & x4095*x4161 + x4110*x4162)
      d2E(20) = -x3948*(-x3971*(x3949 + 0.00751171651201775d0*x4015 - 0.
     &0078125d0*x4134 ) + x3981*(x3604 - x4139 + x4140) - x4123*x4160 + 
     &x4123*x4161 + x4133*x4162)
      d2E(21) = -x3608*(x3607*x3980*(x212*(x3606 - 4.2d0*x4151) + x3605 
     &- 8.4d0*x3954 + 6.0d0*x4024) - 0.75d0*x3971*x4152 + x4025*x4156)
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(x406 + x4171)
      d1E(1) = x1073*(x1072 - x4180 - x4181*x738) + x1074 - x4171
      d1E(2) = -rho_c*(x1354 - x4199)
      d1E(3) = x1470*(x1469 - 0.000244140625d0*x4217)
      d1E(4) = 0
      d1E(5) = 0
      d1E(6) = -x1562*x4223
      d2E(1) = x2363*(-x1943*(x1942 - x3715*x4165*(-x1931*(-x1719*x4192 
     &+ x1930 - 0.04375d0*x4174 + 0.2625d0*x4175) + x1934 + x3554*x4168 
     &- 16.8d0* x4224 - 0.7d0*x4225 + 4.2d0*x4226 - 1.4d0*x4227 - 1.4d0*
     &x4228 + 8.4d0*x4229) - x4169*(x1928 - 48.0d0*x4224 - 2.0d0*x4225 +
     & 12.0d0 *x4226 - 4.0d0*x4227 - 4.0d0*x4228 + 24.0d0*x4229) - 4.0d0
     &*x4177* x4179) + x1944*x4181 - x1945*x4180 - x1946*x4181 + x2362) 
     &- x2364 *x4181 + x2366 - 9.5367431640625d-7*x4180
      d2E(2) = x2731*(-x1943*(-x2510*x4165*(-x1719*x2810*x3733 - x2407*x
     &4235 - x2508* x4234 + x2509 + 0.2625d0*x4186*x557 - 0.04375d0*x423
     &0 + 0.2625d0* x4231 - 0.04375d0*x4232) - x2510*x4177*x4234 + x2520
     & - x4169*( x198*x203*x3565*x4186 - x2407*x4233 + x2504 - x3733*x41
     &76 - x4230 + 6.0d0*x4231 - x4232) - x4179*(x2505 - x4185 - x4188))
     & + x2521* x4198 + x2730) + x2733 + x4199
      d2E(3) = -rho_c*(-x248*(x2812*x4189*x4194 + x2841 - x4183*(x2744*x
     &4233 + x2808 + 4.0d0*x3196*x3733 + x4236*x645) + x4197*(x1441*x423
     &6 + x203*x3733 *x4237 + x2744*x4235 + x2811)) + x2915)
      d2E(4) = 4.76837158203125d-7*rho_c*(x247*(-x1449*x4252*(x3106*(x14
     &20*x3590*x4246 + 0.00546875d0*x1926*x2997*x3582 + x3096*x4250 + x3
     &105 - 0.0875d0 *x4241 + 0.525d0*x4242 - 0.04375d0*x4243 - 0.0875d0
     &*x4248 + 0.01640625d0*x4249 - 0.0630984187009491d0*x4251) + x3109*
     &x4262 + x4254 + x4256 - x4258 + x4261 + x4264 - x4266) - x1450*x42
     &70* x4271 + x3148 - x4238*(x2997*x3083 + x3016*x4250 + x3084 - 2.0
     &d0* x4241 + 12.0d0*x4242 - x4243 + x4244*x4246 - 2.0d0*x4248 + 0.3
     &75d0*x4249 - 1.44224957030741d0*x4251) - x4267*x4268) + x3168 - x4
     &217*x738) + 4.76837158203125d-7*x2916 - 4.76837158203125d-7* x4217
     &
      d2E(5) = -x1073*(-x247*(-x2510*x4194*x4209 + x3223*x4280 + x3225 +
     & x4183*(-x2410* x3751*x4244 + x3018*x4272*x4277 + x3217 - 4.0d0*x3
     &566*x4273 - x4274*x645 + x4275*x4276) - x4189*x4216 - x4197*(-x142
     &0*x3751* x4237 - x1441*x4274 - x200*x3590*x4273 + x3018*x3472*x427
     &9 + x3220 + x4276*x4278)) + x3230)
      d2E(6) = -x3314*(-x3311*(-x3305*x4195*(x3299 - 0.525d0*x4210 + 6.0
     &d0*x4214 - x72* (x3304 + x3590*x4281 + 0.021875d0*x4282 + 0.006319
     &69911517506d0* x4283 - 0.0841312249345988d0*x4284 + 0.002734375d0*
     &x4285*x624* x630 - 0.00262910077920621d0*x4286)) + x3306*x4209*x42
     &15 + x3310 - x4183*(x3298 + x3810*x4285 + x4200*x4281 + 0.5d0*x428
     &2 + 0.144450265489716d0*x4283 - 1.92299942707654d0*x4284 - 0.06009
     &3732096142d0*x4286)) + x3313)
      d2E(7) = x4291*(x4238*(-x1418*(x3064*x4287 + x3344 + x3761) + x149
     &2*x3121 + 1.44224957030741d0*x1505*x3751 - x3340*x4288 + x4275*(x3
     &331 + x3336*x3465 + x4287*x552)) + x4290*(0.0630984187009491d0*x15
     &05* x3625 + x3337*x4191 - x3346*x4173 - x3351 + x3353))
      d2E(8) = -x3017*x3595*(-x4183*(x1492*x4272 + x185*x4292 - 32.0d0*x
     &3374 - 0.120187464192284d0*x3850) + 32.0d0*x4196*(x1441*x4292 + x1
     &478* x4279 - x3371 - x3372))
      d2E(9) = x3402*x4295*(-x4238*(x3385*x96 + 0.0150234330240355d0*x42
     &93 - 0.00225703539827681d0*x4294) - x4289*(x3399*x96 + 0.042065612
     &4672994d0*x4293 - 0.00631969911517506d0*x4294))
      d2E(10) = x3382*x4252*x4296*(-5.42101086242752d-20*x1474 + 8.67361
     &737988404d-19* x240 - 1.35525271560688d-20*x242 + 4.33680868994202
     &d-19*x94)
      d2E(11) = -x1499*x1500*(-x4183*(x3468*x4275 - x3479 + x3480 + 2.88
     &449914061482d0* x4204 - 0.480749856769136d0*x4297) + x4197*(x3468*
     &x4278 - x3485 + x3486 + 0.126196837401898d0*x4204 - 0.021032806233
     &6497d0*x4297))
      d2E(12) = x4291*(x4238*(-x1537*x4299 + x3494*x4275 - x3503 + 0.961
     &499713538272d0* x4298) + x4290*(-x3348*x4299 + x3494*x4278 - x3500
     & + 0.0420656124672994d0*x4298))
      d2E(13) = -x202*x3947*x4295*x685*(-x4183*(-x3512 - 0.0300468660480
     &71d0*x4300 + 0.00451407079655361d0*x4301) + x4196*(-x3530 - 0.0841
     &312249345988d0*x4300 + 0.0126393982303501d0*x4301))
      d2E(14) = -rho_s*x3378*x4195*x4296*(-1.0842021724855d-19*x1474 + 1
     &.73472347597681d-18*x240 - 2.71050543121376d-20*x242 + 8.673617379
     &88404d-19*x94)
      d2E(15) = x3281*x3356*x3403*x3541*x4252*(-2.16840434497101d-19*x14
     &74 + 3.46944695195361d-18*x240 - 5.42101086242752d-20*x242 + 1.734
     &72347597681d-18*x94)
      d2E(16) = x3570*(rho_c*(x185*(-x1556*x4252*(x3565*x4307 - x4254 - 
     &x4256 + x4258 - x4261 - x4264 + x4266 - x720*(-x3125*(0.0875d0*x29
     &96 + x3567) + 0.0875d0*x3768 + 0.525d0*x4302 + x4303*x4308 - 0.087
     &5d0*x4304)) - x3562*x4271*x4306 + 2.0d0*x4238*(x1716*x4303 - x3081
     &*x3125 + x3768 + 6.0d0*x4302 - x4304) - 2.0d0*x4268*x4305) - x3552
     &*x4223) - x4223*x645)
      d2E(17) = -x3578*(x3577*x4280 + 0.015625d0*x4183*(-x1716*x4186 + x
     &3574 - 2.0d0* x4184) + 0.015625d0*x4189*x4222 - x4194*x4309 - 0.5d
     &0*x4196*( x3934 - 0.175d0*x4184 - x4186*x4308))
      d2E(18) = x3596*(x3586*x4270*x4305 + x3587*x4267*x4306 - x3594*x42
     &52*(-x3554*x4307 + x3588 + x3593*(-x3483*x4312 + x3591*x4311 + x35
     &92 + 0.35d0* x4310) + 96.0d0*x4262 + 25.2d0*x4269) - x4238*(x3584 
     &- x4277* x4312 + 4.0d0*x4310 + x4311*x622))
      d2E(19) = 0
      d2E(20) = 0
      d2E(21) = -x3608*(x3607*x4195*(x212*(x3606 - 16.8d0*x4201) + x3605
     & - 33.6d0*x4210 + 6.0d0*x4220) - 0.75d0*x4183*x4305 + x4221*x4309)
     &
      end if
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_TPSS_GWS_ERF_singletref_triplet(rho_c, gamm
     &a_cc, tau_c, mu, E, d1E, d2E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 25, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, tau_c, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: PBE_value, PBE_alpha_value, PBE_beta_value
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549, x550, x551, x552, x553, x554, x555
     &, x556, x557, x558, x559, x560, x561, x562, x563, x564, x565, x566
     &, x567, x568, x569, x570, x571, x572, x573, x574, x575, x576, x577
     &, x578, x579, x580, x581, x582, x583, x584, x585, x586, x587, x588
     &, x589, x590, x591, x592, x593, x594, x595, x596, x597, x598, x599
     &, x600, x601, x602, x603, x604, x605, x606, x607, x608, x609, x610
     &, x611, x612, x613, x614, x615, x616, x617, x618, x619, x620, x621
     &, x622, x623, x624, x625, x626, x627, x628, x629, x630, x631, x632
     &, x633, x634, x635, x636, x637, x638, x639, x640, x641, x642, x643
     &, x644, x645, x646, x647, x648, x649, x650, x651, x652, x653, x654
     &, x655, x656, x657, x658, x659, x660, x661, x662, x663, x664, x665
     &, x666, x667, x668, x669, x670, x671, x672, x673, x674, x675, x676
     &, x677, x678, x679, x680, x681, x682, x683, x684, x685, x686, x687
     &, x688, x689, x690, x691, x692, x693, x694, x695, x696, x697, x698
     &, x699, x700, x701, x702, x703, x704, x705, x706, x707, x708, x709
     &, x710, x711, x712, x713, x714, x715, x716, x717, x718, x719, x720
     &, x721, x722, x723, x724, x725, x726, x727, x728, x729, x730, x731
     &, x732, x733, x734, x735, x736, x737, x738, x739, x740, x741, x742
     &, x743, x744, x745, x746, x747, x748, x749, x750, x751, x752, x753
     &, x754, x755, x756, x757, x758, x759, x760, x761, x762, x763, x764
     &, x765, x766, x767, x768, x769, x770, x771, x772, x773, x774, x775
     &, x776, x777, x778, x779, x780, x781, x782, x783, x784, x785, x786
     &, x787, x788, x789, x790, x791, x792, x793, x794, x795, x796, x797
     &, x798, x799, x800, x801, x802, x803, x804, x805, x806, x807, x808
     &, x809, x810, x811, x812, x813, x814, x815, x816, x817, x818, x819
     &, x820, x821, x822, x823, x824, x825, x826, x827, x828, x829, x830
     &, x831, x832, x833, x834, x835, x836, x837, x838, x839, x840, x841
     &, x842, x843, x844, x845, x846, x847, x848, x849, x850, x851, x852
     &, x853, x854, x855, x856, x857, x858, x859, x860, x861, x862, x863
     &, x864, x865, x866, x867, x868, x869, x870, x871, x872, x873, x874
     &, x875, x876, x877, x878, x879, x880, x881, x882, x883, x884, x885
     &, x886, x887, x888, x889, x890, x891, x892, x893, x894, x895, x896
     &, x897, x898, x899, x900, x901, x902, x903, x904, x905, x906, x907
     &, x908, x909, x910, x911, x912, x913, x914, x915, x916, x917, x918
     &, x919, x920, x921, x922, x923, x924, x925, x926, x927, x928, x929
     &, x930, x931, x932, x933, x934, x935, x936, x937, x938, x939, x940
     &, x941, x942, x943, x944, x945, x946, x947, x948, x949, x950, x951
     &, x952, x953, x954, x955, x956, x957, x958, x959, x960, x961, x962
     &, x963, x964, x965, x966, x967, x968, x969, x970, x971, x972, x973
     &, x974, x975, x976, x977, x978, x979, x980, x981, x982, x983, x984
     &, x985, x986, x987, x988, x989, x990, x991, x992, x993, x994, x995
     &, x996, x997, x998, x999, x1000, x1001, x1002, x1003, x1004, x1005
     &, x1006, x1007, x1008, x1009, x1010, x1011, x1012, x1013, x1014, x
     &1015, x1016, x1017, x1018, x1019, x1020, x1021, x1022, x1023, x102
     &4, x1025, x1026, x1027, x1028, x1029, x1030, x1031, x1032, x1033, 
     &x1034, x1035, x1036, x1037, x1038, x1039, x1040, x1041, x1042, x10
     &43, x1044, x1045, x1046, x1047, x1048, x1049, x1050, x1051, x1052,
     & x1053, x1054, x1055, x1056, x1057, x1058, x1059, x1060, x1061, x1
     &062, x1063, x1064, x1065, x1066, x1067, x1068, x1069, x1070, x1071
     &, x1072, x1073, x1074, x1075, x1076, x1077, x1078, x1079, x1080, x
     &1081, x1082, x1083, x1084, x1085, x1086, x1087, x1088, x1089, x109
     &0, x1091, x1092, x1093, x1094, x1095, x1096, x1097, x1098, x1099, 
     &x1100, x1101, x1102, x1103, x1104, x1105, x1106, x1107, x1108, x11
     &09, x1110, x1111, x1112, x1113, x1114, x1115, x1116, x1117, x1118,
     & x1119, x1120, x1121, x1122, x1123, x1124, x1125, x1126, x1127, x1
     &128, x1129, x1130, x1131, x1132, x1133, x1134, x1135, x1136, x1137
     &, x1138, x1139, x1140, x1141, x1142, x1143, x1144, x1145, x1146, x
     &1147, x1148, x1149, x1150, x1151, x1152, x1153, x1154, x1155, x115
     &6, x1157, x1158, x1159, x1160, x1161, x1162, x1163, x1164, x1165, 
     &x1166, x1167, x1168, x1169, x1170, x1171, x1172, x1173, x1174, x11
     &75, x1176, x1177, x1178, x1179, x1180, x1181, x1182, x1183, x1184,
     & x1185, x1186, x1187, x1188, x1189, x1190, x1191, x1192, x1193, x1
     &194, x1195, x1196, x1197, x1198, x1199, x1200, x1201, x1202, x1203
     &, x1204, x1205, x1206, x1207, x1208, x1209, x1210, x1211, x1212, x
     &1213, x1214, x1215, x1216, x1217, x1218, x1219, x1220, x1221, x122
     &2, x1223, x1224, x1225, x1226, x1227, x1228, x1229, x1230, x1231, 
     &x1232, x1233, x1234, x1235, x1236, x1237, x1238, x1239, x1240, x12
     &41, x1242, x1243, x1244, x1245, x1246, x1247, x1248, x1249, x1250,
     & x1251, x1252, x1253, x1254, x1255, x1256, x1257, x1258, x1259, x1
     &260, x1261, x1262, x1263, x1264, x1265, x1266, x1267, x1268, x1269
     &, x1270, x1271, x1272, x1273, x1274, x1275, x1276, x1277, x1278, x
     &1279, x1280, x1281, x1282, x1283, x1284, x1285, x1286, x1287, x128
     &8, x1289, x1290, x1291, x1292, x1293, x1294, x1295, x1296, x1297, 
     &x1298, x1299, x1300, x1301, x1302, x1303, x1304, x1305, x1306, x13
     &07, x1308, x1309, x1310, x1311, x1312, x1313, x1314, x1315, x1316,
     & x1317, x1318, x1319, x1320, x1321, x1322, x1323, x1324, x1325, x1
     &326, x1327, x1328, x1329, x1330, x1331, x1332, x1333, x1334, x1335
     &, x1336, x1337, x1338, x1339, x1340, x1341, x1342, x1343, x1344, x
     &1345, x1346, x1347, x1348, x1349, x1350, x1351, x1352, x1353, x135
     &4, x1355, x1356, x1357, x1358, x1359, x1360, x1361, x1362, x1363, 
     &x1364, x1365, x1366, x1367, x1368, x1369, x1370, x1371, x1372, x13
     &73, x1374, x1375, x1376, x1377, x1378, x1379, x1380, x1381, x1382,
     & x1383, x1384, x1385, x1386, x1387, x1388, x1389, x1390, x1391, x1
     &392, x1393, x1394, x1395, x1396, x1397, x1398, x1399, x1400, x1401
     &, x1402, x1403, x1404, x1405, x1406, x1407, x1408, x1409, x1410, x
     &1411, x1412, x1413, x1414, x1415, x1416, x1417, x1418, x1419, x142
     &0, x1421, x1422, x1423, x1424, x1425, x1426, x1427, x1428, x1429, 
     &x1430, x1431, x1432, x1433, x1434, x1435, x1436, x1437, x1438, x14
     &39, x1440, x1441, x1442, x1443, x1444, x1445, x1446, x1447, x1448,
     & x1449, x1450, x1451, x1452, x1453, x1454, x1455, x1456, x1457, x1
     &458, x1459, x1460, x1461, x1462, x1463, x1464, x1465, x1466, x1467
     &, x1468, x1469, x1470, x1471, x1472, x1473, x1474, x1475, x1476, x
     &1477, x1478, x1479, x1480, x1481, x1482, x1483, x1484, x1485, x148
     &6, x1487, x1488, x1489, x1490, x1491, x1492, x1493, x1494, x1495, 
     &x1496, x1497, x1498, x1499, x1500, x1501, x1502, x1503, x1504, x15
     &05, x1506, x1507, x1508, x1509, x1510, x1511, x1512, x1513, x1514,
     & x1515, x1516, x1517, x1518, x1519, x1520, x1521, x1522, x1523, x1
     &524, x1525, x1526, x1527, x1528, x1529, x1530, x1531, x1532, x1533
     &, x1534, x1535, x1536, x1537, x1538, x1539, x1540, x1541, x1542, x
     &1543, x1544, x1545, x1546, x1547, x1548, x1549, x1550, x1551
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 1.46459188756152d0
      x1 = 1d0/x0
      x2 = rho_c**(-0.333333333333333d0)
      x3 = x1*x2
      x4 = 0.194159335344114d0*x3 + 1.0d0
      x5 = 2.14502939711103d0
      x6 = 1d0/x5
      x7 = rho_c**0.666666666666667d0
      x8 = 1d0/x7
      x9 = x6*x8
      x10 = 0.564189583547756d0
      x11 = rho_c**(-0.5d0)*x10
      x12 = 0.826307487110758d0
      x13 = rho_c**(-0.166666666666667d0)*x12
      x14 = 1.41872281647967d0*x11 + 7.24010193431683d0*x13 + 3.25955091
     &942229d0*x3 + 0.406913004517529d0*x9
      x15 = 0.693147180559945d0
      x16 = -x15 + 1.0d0
      x17 = 1d0/x16
      x18 = 9.86960440108936d0
      x19 = x17*x18
      x20 = x19/x14
      x21 = log(0.5d0*x20 + 1.0d0)
      x22 = x21*x4
      x23 = 2.0d0*x22
      x24 = gamma_cc*x17
      x25 = 208.945363813799d0
      x26 = rho_c**(-4.66666666666667d0)
      x27 = x25*x26
      x28 = 8.36096418563526d-6*x27
      x29 = exp(x23)
      x30 = x29 - 1.0d0
      x31 = x30**(-2)
      x32 = gamma_cc**2
      x33 = x16**(-2)
      x34 = x32*x33
      x35 = x31*x34
      x36 = x28*x35
      x37 = 14.4549425392770d0
      x38 = rho_c**(-2.33333333333333d0)
      x39 = x37*x38
      x40 = 0.00289153318944038d0*x39
      x41 = 1d0/x30
      x42 = x24*x41
      x43 = x40*x42 + 1.0d0
      x44 = x36 + x43
      x45 = 1d0/x44
      x46 = x40*x43
      x47 = x45*x46
      x48 = x24*x47 + 1.0d0
      x49 = log(x48)
      x50 = 1.0d0*x49
      x51 = -x23 + x50
      x52 = 1d0/x18
      x53 = x16*x52
      x54 = x51*x53
      x55 = 0.235215882559859d0*x3 + 1.0d0
      x56 = 4.12273618607837d0*x11 + 15.10599739383d0*x13 + 7.0945954610
     &7279d0*x3 + 0.819204448708788d0*x9
      x57 = x19/x56 + 1.0d0
      x58 = log(x57)
      x59 = x55*x58
      x60 = 1.0d0*x59
      x61 = 3.34438567425411d-5*x27
      x62 = exp(2.0000000000000004d0*x59)
      x63 = x62 - 1.0d0
      x64 = x63**(-2)
      x65 = x34*x64
      x66 = x61*x65
      x67 = 0.00578306637888076d0*x39
      x68 = 1d0/x63
      x69 = x24*x68
      x70 = x67*x69 + 1.0d0
      x71 = x66 + x70
      x72 = 1d0/x71
      x73 = x67*x70
      x74 = x72*x73
      x75 = x24*x74 + 1.0d0
      x76 = log(x75)
      x77 = 0.5d0*x76
      x78 = -x60 + x77
      x79 = x53*x78
      x80 = rho_c**(-2)
      x81 = tau_c**(-2)
      x82 = x32*x81
      x83 = x80*x82
      x84 = x78*x83
      x85 = 0.00828125d0*x83 + 1.0d0
      x86 = x51*x85
      x87 = -x86
      x88 = 0.02390625d0*x84 + x87
      x89 = -2.8d0*x86
      x90 = 0.0669375d0*x84 + x89
      x91 = x53*x90
      x92 = rho_c**(-3)
      x93 = tau_c**(-3)
      x94 = x92*x93
      x95 = gamma_cc**3*x94
      x96 = x91*x95
      x97 = -x96 + 512.0d0
      x98 = x88*x97
      x99 = 1024.0d0*x22
      x100 = -512.0d0*x49 + x99
      x101 = mu*x6
      x102 = exp(-1.0053738478084204d0*x101*x2)
      x103 = 0.001953125d0*x102
      x104 = x103*x53
      x105 = x23*x53
      x106 = mu**2
      x107 = 0.508616435555896d0*x106*x9 + 1.0d0
      x108 = x107**(-4)
      x109 = mu**4
      x110 = exp(-0.6836107611867116d0*x3)
      x111 = 4.60115111447049d0
      x112 = 1d0/x111
      x113 = rho_c**(-1.33333333333333d0)
      x114 = x112*x113
      x115 = rho_c**1.0d0
      x116 = 1d0/x115
      x117 = 3.14159265358979d0
      x118 = 1d0/x117
      x119 = 0.009578475d0*x118
      x120 = 0.00126674656487366d0*x114 - x116*x119 + 0.0188171922990732
     &d0*x3 + 0.0676322201645715d0*x9 + 1.0d0
      x121 = x110*x120
      x122 = x121 - 1.0d0
      x123 = 0.13157433081915d0*x122
      x124 = x116*x118
      x125 = x123*x124
      x126 = 0.0220208337265180d0
      x127 = x16*x22
      x128 = x126*x127
      x129 = 3.10428814221102d0*x113*x128
      x130 = 0.148394183600699d0
      x131 = 2.28942848510666d0
      x132 = x111*x131
      x133 = 1.63540853354893d0*x132
      x134 = exp(-0.49698248213959023d0*x3)
      x135 = x134*(-0.352521395009435d0*x3 + 0.558025705063192d0*x9)
      x136 = x135*x5
      x137 = 10.9027235569928d0*x136
      x138 = 0.494402081358784d0*x3 + 0.0524148278841779d0*x9 + 1.0d0
      x139 = 1d0/x138
      x140 = 0.0259335011650457d0*x3
      x141 = -x140 + 1.0d0
      x142 = x139*x141
      x143 = 1.63540853354893d0*x132
      x144 = x142*x143
      x145 = x130*(x133 - x137 - x144)
      x146 = 0.00139418473233101d0*rho_c**(-1.0d0)*x145
      x147 = x109*(-x125 - x129 + x146)
      x148 = x106*x3
      x149 = 5.57236303607474d0*mu*x13 + 1.0d0
      x150 = 3.13317926779378d0*x148 + x149
      x151 = 1d0/x150
      x152 = mu**3
      x153 = 3.39260255780131d0*x11*x152 + 6.76834298980504d0*x148 + x14
     &9
      x154 = x151*x153
      x155 = log(x154)
      x156 = 2.0d0*x155
      x157 = x52*(x15 - 1.0d0)
      x158 = x156*x157
      x159 = mu**6
      x160 = rho_c**(-1.66666666666667d0)
      x161 = x130*x160
      x162 = rho_c**(-2.0d0)
      x163 = 0.0102659822546843d0*x127
      x164 = x159*(0.0167302167879722d0*x122*x161 + 1.0525946465532d0*x1
     &62*x163)
      x165 = 0.179587122125167d0
      x166 = x121*x165
      x167 = 0.175432441092201d0*x116
      x168 = 0.0837224526465878d0
      x169 = -4.49737346725955d0*x3 + 0.825481812223657d0*x9
      x170 = exp(-0.28165369188898165d0*x3)
      x171 = x117*x170
      x172 = 12.0d0*x171
      x173 = x169*x172
      x174 = x168*(x115*x173 + x144*x7)
      x175 = 0.00111534778586481d0*x160
      x176 = 1.41421356237310d0
      x177 = x152*x176
      x178 = x177*(x166*x167 + x174*x175)
      x179 = 0.0223069557172962d0*x160
      x180 = mu**5
      x181 = x121*x168
      x182 = x176*x181
      x183 = x180*x182
      x184 = x179*x183
      x185 = rho_c**(-2.66666666666667d0)
      x186 = mu**8
      x187 = 0.00478594012208448d0
      x188 = x127*x187
      x189 = 0.133841734303777d0*x185*x186*x188
      x190 = x164 + x178 + x184 + x189
      x191 = -x147 - x158 + x190
      x192 = x108*x191
      x193 = x105 - x192
      x194 = x19*x193
      x195 = exp(x194)
      x196 = x195 - 1.0d0
      x197 = x196**(-2)
      x198 = x147 + x158 - x164 - x178 - x184 - x189
      x199 = x105 + x108*x198
      x200 = 1/(x21*x4)
      x201 = x199*x200
      x202 = x201**5.56d0
      x203 = x202*x26
      x204 = x197*x203
      x205 = 70524387.5934282d0*x16**(-7.56d0)
      x206 = 1.77226878060434d-7*x205
      x207 = x206*x32
      x208 = x204*x207
      x209 = x201**2.78d0
      x210 = 8397.87994635719d0*x16**(-3.78d0)
      x211 = x210*x38
      x212 = x209*x211
      x213 = 0.000420983227766184d0*x212
      x214 = 1d0/x196
      x215 = gamma_cc*x214
      x216 = x213*x215 + 1.0d0
      x217 = x208 + x216
      x218 = 1d0/x217
      x219 = x213*x216
      x220 = x218*x219
      x221 = gamma_cc*x220 + 1.0d0
      x222 = x193 - x53*log(x221)
      x223 = 0.00578306637888076d0*x38
      x224 = x1*x113
      x225 = 0.156810588373239d0*x224*x58
      x226 = x160*x6
      x227 = rho_c**(-1.5d0)*x10
      x228 = rho_c**(-1.16666666666667d0)*x12
      x229 = 2.36486515369093d0*x224 + 0.546136299139192d0*x226 + 2.0613
     &6809303918d0* x227 + 2.517666232305d0*x228
      x230 = 1d0/x57
      x231 = x230/x56**2
      x232 = x229*x231
      x233 = 0.470431765119717d0*x3 + 2.0d0
      x234 = x19*x233
      x235 = x232*x234
      x236 = -x225 + x235
      x237 = x62*x68
      x238 = x236*x237
      x239 = rho_c**(-3.33333333333333d0)
      x240 = 0.0115661327577615d0*x239
      x241 = rho_c**(-3.33333333333333d0)
      x242 = 0.00192768879296025d0*x241
      x243 = x240 + x242
      x244 = x223*x238 + x243
      x245 = x25*x69
      x246 = x223*x245
      x247 = x244*x246
      x248 = x240*x37
      x249 = x248*x70
      x250 = x242*x37
      x251 = x250*x70
      x252 = 6.68877134850821d-5*x27
      x253 = x24*x62*x64
      x254 = x252*x253
      x255 = x238*x67 + x248 + x250
      x256 = rho_c**(-5.66666666666667d0)
      x257 = x25*x256
      x258 = x257*x69
      x259 = 0.000133775426970164d0*x258
      x260 = rho_c**(-5.66666666666667d0)
      x261 = x245*x260
      x262 = 2.22959044950274d-5*x261
      x263 = x259 + x262
      x264 = x236*x254 + x255 + x263
      x265 = x69*x74
      x266 = x264*x265
      x267 = -x249 - x251 + x266
      x268 = -x247 + x267
      x269 = 0.5d0*x268
      x270 = x72/x75
      x271 = x270*x52
      x272 = gamma_cc*x271
      x273 = x16/x37
      x274 = x273*x58
      x275 = 0.0784052941866196d0*x113
      x276 = x274*x275
      x277 = 1.0d0*x55
      x278 = x232*x277
      x279 = x276 - x278
      x280 = x269*x272 + x279
      x281 = 1.0d0*rho_c
      x282 = -x53*x60 + x53*x77
      x283 = x280*x281 + x282
      x284 = x82*x92
      x285 = x283*x284
      x286 = 0.07171875d0*x284
      x287 = 0.00674691077536089d0*x239
      x288 = x287*x43
      x289 = 0.00289153318944038d0*x41
      x290 = x24*x289
      x291 = x287*x37
      x292 = x289*x29
      x293 = x292*x38
      x294 = 0.129439556896076d0*x113
      x295 = x21*x273
      x296 = x294*x295
      x297 = 2.0d0*x4
      x298 = 1.08651697314076d0*x224 + 0.27127533634502d0*x226 + 0.70936
     &1408239834d0* x227 + 1.20668365571947d0*x228
      x299 = x20 + 2.0d0
      x300 = 1d0/x299
      x301 = x300/x14**2
      x302 = x298*x301
      x303 = x297*x302
      x304 = -x296 + x303
      x305 = 142.664564503142d0*x17
      x306 = x304*x305
      x307 = x291 + x293*x306
      x308 = x307*x38
      x309 = x290*x308
      x310 = x257*x42
      x311 = 3.90178328662979d-5*x310
      x312 = 2062.20808228389d0
      x313 = x304*x312*x33
      x314 = gamma_cc*x26
      x315 = 1.67219283712705d-5*x31
      x316 = x29*x315
      x317 = x314*x316
      x318 = x307 + x311 + x313*x317
      x319 = x318*x45
      x320 = x290*x38
      x321 = x320*x43
      x322 = x319*x321
      x323 = -x288 - x309 + x322
      x324 = 1.46459188756152d0
      x325 = x45/x48
      x326 = gamma_cc*x325
      x327 = x324*x326
      x328 = 1.0d0*x327
      x329 = x323*x328
      x330 = x296 - x303
      x331 = x329 + x330
      x332 = x284*x54
      x333 = -x331*x85 + 0.0165625d0*x332
      x334 = 0.02390625d0*x285 - x286*x79 + x333
      x335 = 1d0/rho_c
      x336 = 3.0d0*x335
      x337 = x336*x91
      x338 = 0.0669375d0*x285
      x339 = 0.2008125d0*x284
      x340 = x339*x79
      x341 = 0.0231875d0*x83 + 2.8d0
      x342 = x331*x341
      x343 = 0.046375d0*x332
      x344 = x342 - x343
      x345 = x95*(x337 - x338 + x340 + x344)
      x346 = x53*x88
      x347 = x288 + x309
      x348 = -x322 + x347
      x349 = 512.0d0*x348
      x350 = x302*x4
      x351 = 1024.0d0*x350
      x352 = x113*x295
      x353 = 66.2730531307909d0*x352
      x354 = -x351 + x353
      x355 = -x327*x349 + x354
      x356 = x102*(x334*x97 + x345*x346 + x355)
      x357 = 0.0472353356922751d0
      x358 = 0.33512461593614d0*mu*x357
      x359 = x102*x113
      x360 = x358*x359
      x361 = 512.0d0*x49 - x99
      x362 = x361 + x98
      x363 = x16*x362
      x364 = x140 - 1.0d0
      x365 = x139*x364
      x366 = -x133 + x137
      x367 = 0.00232364122055169d0*x162
      x368 = x130*x367
      x369 = x117*x131*x139
      x370 = 0.0141372897033723d0*x369*x8
      x371 = 0.372017136708795d0*x226
      x372 = 0.117507131669812d0*x224
      x373 = x134*x5
      x374 = 10.9027235569928d0*x373*x7
      x375 = rho_c**(-0.333333333333333d0)
      x376 = x132*x375
      x377 = 1.09027235569928d0*x376
      x378 = x143*x7
      x379 = x138**(-2)
      x380 = 0.164800693786261d0*x224 + 0.034943218589452d0*x226
      x381 = x379*x380
      x382 = x364*x381
      x383 = 7.26848237132856d0*x136*x375
      x384 = x0*x8
      x385 = 1.80615420514536d0*x135*x384
      x386 = 1.09027235569928d0*x376
      x387 = x383 + x385 - x386
      x388 = 0.00139418473233101d0*x161
      x389 = x118*x162
      x390 = 1.55214407110551d0*x114
      x391 = rho_c**(-2.33333333333333d0)
      x392 = x112*x391
      x393 = -0.0031361987165122d0*x224 - 0.0225440733881905d0*x226 + 0.
     &0047892375d0* x389 - 0.000844497709915773d0*x392
      x394 = x110*(0.113935126864452d0*x120*x224 + x393)
      x395 = 0.263148661638301d0*x124
      x396 = x123*x389 + 4.13905085628136d0*x128*x391 + x330*x390 - x394
     &*x395
      x397 = 0.00168899541983155d0*x392
      x398 = x119*x162
      x399 = 0.045088146776381d0*x226
      x400 = 0.00627239743302441d0*x224
      x401 = x397 - x398 + x399 + x400
      x402 = x110*x165
      x403 = x167*x402
      x404 = 1.49912448908652d0*x224 - 0.550321208149104d0*x226
      x405 = x115*x172
      x406 = x169*x170
      x407 = 2.14502939711103d0
      x408 = rho_c**(-0.333333333333333d0)*x407
      x409 = x142*x377
      x410 = x141*x378
      x411 = x381*x410
      x412 = x370 + x409 + x411
      x413 = x168*(x173 + x404*x405 + 1.12661476755593d0*x406*x408 + x41
     &2)
      x414 = x175*x413
      x415 = 0.00185891297644135d0*x174*x185
      x416 = 0.122619224952946d0
      x417 = x391*x416
      x418 = 0.0399758348639607d0*x121*x417
      x419 = 0.175432441092201d0*x162*x166
      x420 = x414 - x415 + x418 - x419
      x421 = x106*x176
      x422 = 0.928727172679123d0*x228
      x423 = mu*x224
      x424 = 2.25611432993501d0*x423
      x425 = 1.69630127890066d0*x106*x227
      x426 = x422 + 1.04439308926459d0*x423
      x427 = x154*x426 - x422 - x424 - x425
      x428 = 1d0/x153
      x429 = 2.0d0*x428
      x430 = x427*x429
      x431 = x430*x53
      x432 = x109*x176
      x433 = x168*x432
      x434 = x179*x433
      x435 = x110*x401
      x436 = x130*x185
      x437 = rho_c**(-3.0d0)
      x438 = 2.10518929310641d0*x437
      x439 = 0.0334604335759443d0*x161
      x440 = 0.101321183642338d0
      x441 = x330*x440
      x442 = 0.526297323276602d0*x162
      x443 = mu**7
      x444 = x330*x357*x443
      x445 = 0.0669208671518886d0*x185
      x446 = rho_c**(-3.66666666666667d0)
      x447 = 0.356911291476739d0*x446
      x448 = x188*x443
      x449 = x109*x182
      x450 = 0.0571643564037363d0
      x451 = x121*x432
      x452 = x450*x451
      x453 = x180*(0.0278836946466203d0*x122*x436 + x163*x438 - x394*x43
     &9 + x441*x442 ) + 0.037178259528827d0*x185*x449 - 0.00508309165921
     &971d0*x437* x452 + x444*x445 + x447*x448
      x454 = -x431 + x434*x435 + x453
      x455 = x152*(x368*(-x143*x365 + x366) - x388*(-x365*x377 + x370 - 
     &x374*(x371 - x372) - x378*x382 + x387) + x396) - x421*(-x401*x403 
     &+ x420) + x454
      x456 = mu*x108
      x457 = 512.0d0*x456
      x458 = x109*(x125 + x129 - x146) + x156*x53 + x190
      x459 = x107**(-5)
      x460 = x226*x459
      x461 = x106*x460
      x462 = x458*x461
      x463 = 0.000982294198121095d0*x239
      x464 = x209*x463
      x465 = x216*x464
      x466 = 0.000841966455532367d0*x38
      x467 = 1d0/x199
      x468 = 0.179920984085546d0*x352
      x469 = 2.78d0*x350
      x470 = x198*x461
      x471 = 1.88527158779386d0*x470
      x472 = x19*x201
      x473 = x304*x472
      x474 = -x371 + x372
      x475 = x374*x474
      x476 = -x370 - x383 - x385 + x386 - x409 - x411 - x475
      x477 = -x397 + x398 - x399 - x400
      x478 = x403*x477
      x479 = x157*x430
      x480 = x110*x477
      x481 = x152*(-x145*x367 + x388*x476 + x396) + x421*(-x414 + x415 -
     & x418 + x419 - x478) - x434*x480 + x453 + x479
      x482 = x456*x481
      x483 = 1.39d0*x482
      x484 = x468 - x469 - x471 + 0.695d0*x473 - x483
      x485 = x467*x484
      x486 = x209*x485
      x487 = gamma_cc*x38
      x488 = 0.000420983227766184d0*x487
      x489 = exp(x19*x199)
      x490 = x489 - 1.0d0
      x491 = 1d0/x490
      x492 = x304 + 1.35631049481572d0*x470 + x482
      x493 = 0.000420983227766184d0*x38
      x494 = 82883.752878387d0*x16**(-4.78d0)
      x495 = x493*x494
      x496 = x210*x463
      x497 = 0.000841966455532367d0*x211
      x498 = x485*x497 + x496
      x499 = x202*(x489*x491*x492*x495 + x498)
      x500 = x491*x499
      x501 = x209*x214
      x502 = x488*x501
      x503 = x202*x215
      x504 = x205*x256
      x505 = 8.27058764282027d-7*x504
      x506 = 0.359841968171091d0*x352
      x507 = 5.56d0*x350
      x508 = 3.77054317558771d0*x470
      x509 = 2.78d0*x482
      x510 = 1.39d0*x473 + x506 - x507 - x508 - x509
      x511 = 3.54453756120869d-7*x203
      x512 = x205*x511
      x513 = x215*x512
      x514 = x467*x513
      x515 = gamma_cc*x197*x511
      x516 = x152*(x368*(x144 + x366) - x388*(x387 + x412 + x475) + x396
     &) - x421*( x420 + x478) + x454
      x517 = x456*x516
      x518 = 1.35631049481572d0*x191*x461
      x519 = x304 + x517 - x518
      x520 = x195*x519
      x521 = 696047806.176231d0*x16**(-8.56d0)
      x522 = x520*x521
      x523 = 0.000841966455532367d0*x212
      x524 = x485*x523
      x525 = x501*x520
      x526 = x210*x464 + x495*x525 + x524
      x527 = x503*x505 + x510*x514 + x515*x522 + x526
      x528 = x218*x527
      x529 = x216*x466*x486 - x216*x502*x528 + x465 + x488*x500
      x530 = 512.0d0*x529
      x531 = x108*x458
      x532 = x19*(x105 - x531)
      x533 = exp(x532)
      x534 = x533 - 1.0d0
      x535 = x534**(-2)
      x536 = x193*x200
      x537 = x536**5.56d0
      x538 = x26*x537
      x539 = x535*x538
      x540 = x536**2.78d0
      x541 = x211*x540
      x542 = 0.000420983227766184d0*x541
      x543 = 1d0/x534
      x544 = gamma_cc*x543
      x545 = x542*x544 + 1.0d0
      x546 = x207*x539 + x545
      x547 = 1d0/x546
      x548 = x542*x545
      x549 = x547*x548
      x550 = gamma_cc*x549 + 1.0d0
      x551 = 1d0/x550
      x552 = x218*x551
      x553 = 850.883136251163d0*gamma_cc*x16**(-2.78d0)
      x554 = x552*x553
      x555 = x354 - x455*x457 + 694.43097334565d0*x462 - x530*x554
      x556 = 0.001953125d0*rho_c
      x557 = x53*log(x550)
      x558 = -x105 + x531 + x557
      x559 = x28*x42
      x560 = 1.67219283712705d-5*x27
      x561 = x42*x560
      x562 = x40 + x561
      x563 = x45*x562
      x564 = x46*x563
      x565 = x42*x564
      x566 = x46 + x559 - x565
      x567 = x325*x566
      x568 = 512.0d0*x567
      x569 = x16*x78
      x570 = gamma_cc*x81
      x571 = x570*x80
      x572 = x569*x571
      x573 = 0.0165625d0*x80
      x574 = x16*x51
      x575 = x570*x574
      x576 = -x573*x575
      x577 = 1.0d0*x567
      x578 = -x577*x85
      x579 = x61*x69
      x580 = x252*x69
      x581 = x580 + x67
      x582 = x581*x72
      x583 = x582*x69
      x584 = x583*x73
      x585 = x579 - x584 + x73
      x586 = x270*x585
      x587 = x586*x83
      x588 = x578 + 0.011953125d0*x587
      x589 = 0.0478125d0*x572 + x576 + x588
      x590 = x16*x90
      x591 = -x341*x577
      x592 = 0.046375d0*x80
      x593 = -x575*x592 + x591
      x594 = gamma_cc*(0.133875d0*x572 + 0.03346875d0*x587 + x593)
      x595 = 3.0d0*x590 + x594
      x596 = x32*x94
      x597 = x346*x596
      x598 = x568 + x589*x97 - x595*x597
      x599 = x103*x598
      x600 = x538*x544
      x601 = x215*x549
      x602 = x547*x551
      x603 = x602*(x206*x600 + x548 - x601*(x213 + x513))
      x604 = x16*x603
      x605 = rho_c*x52
      x606 = x60 - x77
      x607 = x16*x606
      x608 = x126*x607
      x609 = x26*x608
      x610 = 0.00398120975136941d0*x26
      x611 = x126*x610
      x612 = 5.6d0*x22
      x613 = 2.8d0*x49
      x614 = x16*(x612 - x613)
      x615 = -x611*x614
      x616 = x39*x70
      x617 = 0.000193552002868165d0*x616
      x618 = x582*x617
      x619 = 1.11932408035192d-6*x27
      x620 = x619*x69
      x621 = x617 + x620
      x622 = -x618*x69 + x621
      x623 = x271*x80
      x624 = x622*x623
      x625 = 0.0111473873038343d0*x609 + x615 + x624
      x626 = x625*x95
      x627 = 0.02390625d0*x83
      x628 = x23 - x50
      x629 = x628*x85
      x630 = x53*(-x606*x627 + x629)
      x631 = x96 - 512.0d0
      x632 = x16*x628
      x633 = -x611*x632
      x634 = 6.91257153100591d-5*x616
      x635 = x582*x634
      x636 = 3.99758600125686d-7*x27
      x637 = x636*x69
      x638 = x634 + x637
      x639 = -x635*x69 + x638
      x640 = x623*x639
      x641 = x608*x610 + x633 + x640
      x642 = x626*x630 + x631*x641
      x643 = x102*x556
      x644 = x643*x82
      x645 = 0.0478125d0*x59
      x646 = 0.02390625d0*x76
      x647 = -0.033125d0*x22 + 0.0165625d0*x49 + x645 - x646
      x648 = -8.4d0*x86
      x649 = 0.133875d0*x59
      x650 = 0.0669375d0*x76
      x651 = -0.09275d0*x22 + 0.046375d0*x49 + x649 - x650
      x652 = x651*x83
      x653 = x648 - x652 + 0.2008125d0*x84
      x654 = 1d0/tau_c
      x655 = x335*x53
      x656 = x654*x655
      x657 = x653*x656
      x658 = gamma_cc*x88
      x659 = x647*x97 + x657*x658
      x660 = x32*x93
      x661 = x104*x335
      x662 = x660*x661
      x663 = rho_c**(-4.33333333333333d0)
      x664 = 0.0449794051690726d0*x663
      x665 = 0.0231322655155231d0*x239
      x666 = 0.00385537758592051d0*x241
      x667 = 0.0115661327577615d0*x38
      x668 = x236**2
      x669 = exp(4.0000000000000009d0*x59)
      x670 = x64*x669
      x671 = x668*x670
      x672 = x223*x237
      x673 = x1*x38
      x674 = 0.209080784497652d0*x58*x673
      x675 = 2.11343308165213d0*x113*x17*x232
      x676 = x185*x6
      x677 = rho_c**(-2.5d0)*x10
      x678 = rho_c**(-2.16666666666667d0)*x12
      x679 = x231*(3.15315353825457d0*x673 + 0.910227165231986d0*x676 + 
     &3.09205213955878d0*x677 + 2.9372772710225d0*x678)
      x680 = x234*x679
      x681 = 97.4090910340024d0*x33
      x682 = x229**2/(x56**4*x57**2)
      x683 = x233*x681*x682
      x684 = x229*x230*(4.72973030738186d0*x224 + 1.09227259827838d0*x22
     &6 + 4.12273618607837d0*x227 + 5.03533246461d0*x228)/x56**3
      x685 = x234*x684
      x686 = x674 - x675 - x680 - x683 + x685
      x687 = x672*x686
      x688 = x237*x67
      x689 = x668*x688
      x690 = x686*x688
      x691 = 0.0115661327577615d0*x39
      x692 = x671*x691
      x693 = x37*x665
      x694 = x238*x693
      x695 = x37*x666
      x696 = x238*x695
      x697 = x254*x668
      x698 = x254*x686
      x699 = x236*x253
      x700 = 0.000535101707880657d0*x257
      x701 = x699*x700
      x702 = 8.91836179801095d-5*x25*x260
      x703 = x699*x702
      x704 = 0.000200663140455246d0*x24*x27*x669/x63**3
      x705 = x668*x704
      x706 = x37*x664
      x707 = 0.000215527076785265d0*rho_c**(-6.66666666666667d0)*x245
      x708 = rho_c**(-6.66666666666667d0)
      x709 = 0.000668877134850821d0*x245*x708
      x710 = -x706 - x707 - x709
      x711 = x264*x72
      x712 = x25*x65
      x713 = x667*x712
      x714 = x244*x713
      x715 = x693*x70
      x716 = x69*x711
      x717 = x695*x70
      x718 = 0.000267550853940329d0*x258
      x719 = 4.45918089900548d-5*x261
      x720 = 0.000133775426970164d0*x27
      x721 = x699*x720 + x718 + x719
      x722 = x693 + x695
      x723 = x238*x691 + x722
      x724 = x71**(-2)
      x725 = x724*x73
      x726 = x65*x725
      x727 = x264*x726
      x728 = x70*x706
      x729 = x244*x245
      x730 = x665*x729 + x666*x729 + x728
      x731 = 0.5d0*x272
      x732 = x249 + x251
      x733 = x247 + x732
      x734 = -x266 + x733
      x735 = x17*x734
      x736 = x724/x75**2
      x737 = x32*x52*x736
      x738 = x735*x737
      x739 = 1d0/x324
      x740 = x19*x277*x682 + 0.0784052941866196d0*x224*x232 + x232*x275*
     &x739 - 0.104540392248826d0*x274*x38 + x277*x679 - x277*x684
      x741 = x269*x738 + x731*(x246*(x238*x665 + x238*x666 + x664 + x667
     &*x671 - x668* x672 - x687) + x265*(x689 + x690 - x692 - x694 - x69
     &6 + x697 + x698 - x701 - x703 - x705 + x710) - x711*x714 - x715*x7
     &16 - x716* x717 + x727*(x721 + x723) + x730) + x740
      x742 = 0.156810588373239d0*x113*x274 - 2.0d0*x232*x55
      x743 = x284*(1.0d0*x268*x272 + x281*x741 + x742)
      x744 = rho_c**(-4)
      x745 = x744*x82
      x746 = x283*x745
      x747 = x745*x79
      x748 = x54*x745
      x749 = rho_c**(-4.33333333333333d0)
      x750 = 0.0224897025845363d0*x749
      x751 = x37*x750
      x752 = 0.0134938215507218d0*x239
      x753 = x29*x41
      x754 = x306*x753
      x755 = x752*x754
      x756 = x304**2
      x757 = x31*x756
      x758 = exp(4.0d0*x22)
      x759 = 0.00578306637888076d0*x38
      x760 = 1408.04281369971d0*x33
      x761 = x758*x759*x760
      x762 = x757*x761
      x763 = x293*x760
      x764 = x756*x763
      x765 = x295*x391
      x766 = 0.172586075861435d0*x765
      x767 = x302*x739
      x768 = x294*x767
      x769 = x224*x302
      x770 = 0.129439556896076d0*x769
      x771 = x1*x391
      x772 = rho_c**(-2.16666666666667d0)*x12
      x773 = x301*(0.452125560575033d0*x676 + 1.06404211235975d0*x677 + 
     &1.44868929752102d0*x771 + 1.40779759833938d0*x772)
      x774 = x297*x773
      x775 = x19*x298**2/(x14**4*x299**2)
      x776 = x297*x775
      x777 = x298*x300*(2.17303394628153d0*x224 + 0.542550672690039d0*x2
     &26 + 1.41872281647967d0*x227 + 2.41336731143894d0*x228)/x14**3
      x778 = x297*x777
      x779 = x766 - x768 - x770 - x774 - x776 + x778
      x780 = x293*x305
      x781 = x779*x780
      x782 = x751 + x755 + x762 - x764 - x781
      x783 = x25*x708
      x784 = x42*x783
      x785 = 0.000221101052909021d0*x784
      x786 = x31*x313
      x787 = gamma_cc*x256
      x788 = 0.000156071331465192d0*x29*x786*x787
      x789 = 20353.1779648712d0/x16**3
      x790 = 5.01657851138116d-5*x314*x756*x758*x789/x30**3
      x791 = x29*x314
      x792 = 1.67219283712705d-5*x757*x789*x791
      x793 = x312*x33
      x794 = x317*x793
      x795 = x779*x794
      x796 = x321*x45
      x797 = x42*x43
      x798 = x752*x797
      x799 = 0.00578306637888076d0*x308*x35
      x800 = 3.34438567425411d-5*x791
      x801 = x786*x800
      x802 = 7.80356657325958d-5*x310
      x803 = x37*x752 + x802
      x804 = x44**(-2)
      x805 = x318*x35*x804
      x806 = 0.00289153318944038d0*x38*x43
      x807 = x307*x42
      x808 = x43*x750 + x752*x807
      x809 = x17*x348
      x810 = x804/x48**2
      x811 = 21.170591578193d0*x32*x810
      x812 = -x766 + x768 + x770 + x774 + x776 - x778
      x813 = x323*x809*x811 + x327*(-x319*x798 - x319*x799 + x320*x782 +
     & x796*(-x751 - x755 - x762 + x764 + x781 - x785 - x788 - x790 + x7
     &92 + x795) + x805*x806*(x754*x759 + x801 + x803) + x808) + x812
      x814 = x284*x331
      x815 = -x813*x85 + 0.033125d0*x814
      x816 = -0.0496875d0*x748 + x815
      x817 = -x342 + x343
      x818 = x338 - x340 + x817
      x819 = 6.0d0*x335
      x820 = x53*x80
      x821 = 12.0d0*x820
      x822 = x341*x813
      x823 = 0.09275d0*x814
      x824 = 0.139125d0*x748 + x822 - x823
      x825 = x346*x95
      x826 = x305*x330*x753
      x827 = x330**2
      x828 = x291 + x311 - x330*x780 - x330*x794
      x829 = x45*x828
      x830 = 512.0d0*x327
      x831 = x347 - x796*x828
      x832 = x4*x773
      x833 = x4*x777
      x834 = x113*x767
      x835 = x4*x775
      x836 = -88.3640708410546d0*x765 + 66.2730531307909d0*x769 + 1024.0
     &d0*x832 - 1024.0d0*x833 + 66.2730531307909d0*x834 + 1024.0d0*x835
      x837 = -x17*x349*x811*x831 + x830*(x320*(x31*x761*x827 + x751 - x7
     &52*x826 - x763*x827 + x780*x812) + x35*x804*x806*x828*(-x31*x330*x
     &793*x800 - x759*x826 + x803) - x796*(x782 + x785 + x788 + x790 - x
     &792 - x795) - x798*x829 - x799*x829 + x808) + x836
      x838 = x101*x113
      x839 = 0.67024923187228d0*x838
      x840 = x102*x363
      x841 = mu*x357
      x842 = 0.446832821248187d0*x391*x841
      x843 = 0.112308508206345d0*mu**2*x126*x185
      x844 = 0.0101661833184394d0*x432*x437*x450
      x845 = x435*x844
      x846 = 0.074356519057654d0*x185*x433
      x847 = x435*x846
      x848 = x112*x241
      x849 = x118*x437
      x850 = 0.0751469112939684d0*x676 + 0.00836319657736588d0*x771 + 0.
     &00394098931294027d0*x848 - 0.01915695d0*x849
      x851 = x110*x434*x850
      x852 = 4.52089344419912d-5*x451*x663
      x853 = rho_c**(-4.0d0)
      x854 = 0.023721094409692d0*x452*x853
      x855 = 0.0991420254102054d0*x446*x449
      x856 = rho_c**(-4.66666666666667d0)
      x857 = 1.30867473541471d0*x448*x856
      x858 = mu*x53
      x859 = 2.0d0*x422 + 2.0d0*x424 + 2.0d0*x425
      x860 = x427*x859/x153**2
      x861 = x858*x860
      x862 = mu*x426
      x863 = x151*x862
      x864 = x431*x863
      x865 = x444*x447
      x866 = 1.08351503479231d0*x772
      x867 = mu*x771
      x868 = x106*x677
      x869 = x429*(-x154*(x866 + 1.39252411901946d0*x867) - x859*x863 + 
     &x866 + 3.00815243991335d0*x867 + 2.54445191835098d0*x868 + x153*x8
     &62*( 1.85745434535825d0*x228 + 2.08878617852919d0*x423)/x150**2)
      x870 = x53*x869
      x871 = x357*x443*x445*x812
      x872 = 0.0799516697279215d0*x417*x480
      x873 = 0.350864882184401d0*x162*x402*x477
      x874 = x403*x850
      x875 = 0.00910930363347549d0*rho_c**(-3.66666666666667d0)*x181
      x876 = 0.133252782879869d0*x121*x241*x416
      x877 = 0.350864882184401d0*x166*x437
      x878 = 0.00495710127051027d0*x174*x446
      x879 = 0.0037178259528827d0*x185*x413
      x880 = 24.0d0*x171
      x881 = rho_c**(-1.33333333333333d0)
      x882 = x132*x881
      x883 = 0.219734258381682d0*x771
      x884 = x379*x410
      x885 = x141*x376*x381
      x886 = 0.0282745794067445d0*x117*x131*x381*x8
      x887 = x380*(0.329601387572523d0*x224 + 0.0698864371789039d0*x226)
     &/x138**3
      x888 = x410*x887
      x889 = -x886 - x888
      x890 = 0.363424118566428d0*x142*x882 + x884*(0.0582386976490866d0*
     &x676 + x883) - 2.18054471139857d0*x885 + x889
      x891 = x168*x175
      x892 = x891*(-0.751076511703951d0*x113*x406*x407 - 0.1549124267809
     &83d0*x160* x406 - 2.25322953511185d0*x170*x404*x408 - x404*x880 - 
     &x405*( 0.917202013581841d0*x676 - 1.99883265211535d0*x771) + x890)
     &
      x893 = x421*(x872 - x873 + x874 + x875 - x876 + x877 + x878 - x879
     & - x892)
      x894 = x122*x130*x446
      x895 = 0.074356519057654d0*x894
      x896 = 6.31556787931922d0*x163*x853
      x897 = 0.111534778586481d0*x394*x436
      x898 = x110*(-x119*x437 + 0.0259624262672375d0*x120*x676 - 0.15191
     &3502485936d0* x120*x771 + 0.455740507457808d0*x224*x393 + 0.037573
     &4556469842d0* x676 + 0.00418159828868294d0*x771 + 0.00197049465647
     &014d0*x848)
      x899 = x439*x898
      x900 = x438*x441
      x901 = x440*x442*x812
      x902 = x180*(x895 + x896 - x897 + x899 + x900 - x901)
      x903 = 0.263148661638301d0*x122*x849
      x904 = 9.65778533132318d0*x128*x241
      x905 = 0.00619637658813783d0*x145*x437
      x906 = 0.526297323276602d0*x389*x394
      x907 = x395*x898
      x908 = 4.13905085628136d0*x330*x392
      x909 = 0.00464728244110338d0*x436*x476
      x910 = x136*x881
      x911 = x388*(-3.61230841029072d0*x134*x384*x474 - 0.299209d0*x135*
     &x162 - 14.5369647426571d0*x373*x375*x474 - x374*(0.620028561181324
     &d0* x676 - 0.156676175559749d0*x771) - 0.363424118566428d0*x882 + 
     &x890 + 2.42282745710952d0*x910)
      x912 = x390*x812
      x913 = x152*(x903 + x904 - x905 - x906 + x907 + x908 + x909 - x911
     & - x912)
      x914 = x109*x848/x107**6
      x915 = x106*x459*x676
      x916 = x152*x460
      x917 = x545*x749
      x918 = x210*x540
      x919 = 1d0/x193
      x920 = 0.695d0*x330
      x921 = -x468 + x469 + x471 + x472*x920 + x483
      x922 = x919*x921
      x923 = x545*x922
      x924 = 0.00392917679248438d0*x239
      x925 = x193**(-2)
      x926 = 0.00168393291106473d0*x921**2*x925
      x927 = x200*x330
      x928 = x495*x927
      x929 = x330 - x517 + x518
      x930 = x497*x921*x925*x929
      x931 = x214*x495
      x932 = x498 + x520*x931
      x933 = 0.00196458839624219d0*x239
      x934 = x918*x933
      x935 = 0.00168393291106473d0*x212
      x936 = x540*x922
      x937 = x545*x919
      x938 = -x851 - x852 + x854 - x855 - x857 - x865 + x871
      x939 = x456*(x845 - x847 - x861 + x864 - x870 - x893 - x902 - x913
     & + x938)
      x940 = x191*x915
      x941 = x516*x916
      x942 = x191*x914
      x943 = 0.695d0*x812
      x944 = 1.39d0*x330
      x945 = x19*x200
      x946 = x944*x945
      x947 = 0.258879113792152d0*x352
      x948 = -4.0d0*x350 + x947
      x949 = x681*x948/(x21**2*x4**2)
      x950 = 0.3475d0*x330*x949
      x951 = 0.239894645447394d0*x765 - 0.179920984085546d0*x769 - 2.78d
     &0*x832 + 2.78d0*x833 - 0.179920984085546d0*x834 - 2.78d0*x835
      x952 = x497*(x193*x950 + x194*x200*x943 + x519*x946 + 1.39d0*x939 
     &+ 3.14211931298976d0*x940 + 3.77054317558771d0*x941 - 3.1962670501
     &2839d0*x942 + x951)
      x953 = x537*x544
      x954 = x533*x543
      x955 = x495*x954
      x956 = gamma_cc*x521*x533*x539*x929
      x957 = x600*x919*(x472*x944 - x506 + x507 + x508 + x509)
      x958 = -3.54453756120869d-7*x205*x957 + x496*x540 - x497*x936 + x5
     &05*x953 - x540*x929*x955 - 3.54453756120869d-7*x956
      x959 = x545*x547
      x960 = x958*x959
      x961 = x540*x547
      x962 = x32*x958
      x963 = 1.65411752856405d-6*x504
      x964 = x929*x954
      x965 = x494*x964
      x966 = 0.00168393291106473d0*x922
      x967 = 7.08907512241738d-7*x205
      x968 = x210*x749
      x969 = 0.00327431399373698d0*x968
      x970 = x494*x933
      x971 = 818029.852187331d0*x16**(-5.78d0)
      x972 = x929**2*x971
      x973 = x210*x924
      x974 = 2.29947269793409d0*x942
      x975 = 2.26051749135954d0*x940
      x976 = 2.71262098963145d0*x941
      x977 = 0.000420983227766184d0*x211
      x978 = x205*x503*x708
      x979 = x519**2
      x980 = x971*x979
      x981 = x195*x501
      x982 = exp(2.0d0*x194)
      x983 = 6869716491.20552d0*x16**(-9.56d0)*x979
      x984 = x195*x515
      x985 = x199**(-2)
      x986 = x503*x504
      x987 = x467*x510
      x988 = x203*x215
      x989 = x967*x988
      x990 = x519*x985
      x991 = gamma_cc*x204*x522
      x992 = x779 + x939 - x974 + x975 + x976
      x993 = mu*x157
      x994 = x456*(x152*(-x903 - x904 + x905 + x906 - x907 - x908 - x909
     & + x911 + x912) + x157*x869 + x180*(-x895 - x896 + x897 - x899 - x
     &900 + x901) + x421*(-x872 + x873 - x874 - x875 + x876 - x877 - x87
     &8 + x879 + x892) - x479*x863 - x480*x844 + x480*x846 + x860*x993 +
     & x938)
      x995 = x198*x914
      x996 = x481*x916
      x997 = x198*x915
      x998 = 512.0d0*x53
      x999 = x530/x550**2
      x1000 = x218*x32
      x1001 = gamma_cc*x602*x998*(gamma_cc*x501*x932*x934 - x214*x523*x5
     &43*x932*x961* x962 - x215*x932*x935*x936 + x535*x548*x962*(-x466*x
     &540*x965 - x541*x966 + x934 + x953*x963 - 7.08907512241738d-7*x956
     & - x957* x967)/x546**2 + x540*x545*x930 - x540*x923*x928 + x540*x9
     &37*x952 + 0.00168393291106473d0*x541*x544*x547*x923*x958 + x541*x5
     &45*x926 - x544*x934*x960 - x601*(1.06336126836261d-6*gamma_cc*x203
     &*x982* x983/x196**3 + 3.30823505712811d-6*x197*x202*x522*x787 + x1
     &97* x209*x466*x980*x982 + x209*x969 + 0.00168393291106473d0*x214*x
     &38* x486*x494*x520 + x467*x523*(x199*x950 + x472*x943 + x492*x946 
     &+ x951 + 1.39d0*x994 + 3.19626705012839d0*x995 + 3.77054317558771d
     &0 *x996 - 3.14211931298976d0*x997) + x484**2*x935*x985 + x484*x523
     &* x990 + x486*x928 + x486*x973 - x493*x980*x981 - x495*x981*x992 +
     & x510**2*x985*x989 + x510*x513*x990 + x514*(x199*x920*x949 + 2.78d
     &0*x330*x492*x945 + 1.39d0*x472*x812 + 0.479789290894789d0* x765 - 
     &0.359841968171091d0*x769 - 5.56d0*x832 + 5.56d0*x833 - 0.359841968
     &171091d0*x834 - 5.56d0*x835 + 2.78d0*x994 + 6.39253410025677d0*x99
     &5 + 7.54108635117542d0*x996 - 6.28423862597952d0*x997) + 1.7722687
     &8060434d-7*x521*x927*x987* x988 - x521*x984*x992 + x525*x970 + 4.6
     &8666633093149d-6*x978 - x983*x984 + 3.30823505712811d-6*x986*x987 
     &+ 1.41781502448348d-6* x987*x991) + 0.00327431399373698d0*x917*x91
     &8 - x918*x923*x924 + x953*x977*(x211*x926 + x38*x965*x966 + x466*x
     &535*x972*exp(2.0d0* x532) - x493*x954*x972 + x919*x952 - x922*x928
     & - x922*x973 + x930 + x955*(x812 - x939 + x974 - x975 - x976) - x9
     &64*x970 + x969)) - 7145614.42661715d0*x1000*x16**(-6.56d0)*x961*x9
     &99*(x463*x545 - x466*x923 - x488*x543*x960 + x502*x932) - 1388.861
     &9466913d0*x455* x916 + x457*(-x845 + x847 + x851 + x852 - x854 + x
     &855 + x857 + x861 - x864 + x865 + x870 - x871 + x893 + x902 + x913
     &) + 1177.33002134225d0*x458*x914 - 1157.38495557608d0*x458*x915 + 
     &x836
      x1002 = 0.00130908053100055d0*x359*x841
      x1003 = -2.0d0*x455*x456 + 2.71262098963145d0*x462 - 2.0d0*x529*x5
     &54 + x948
      x1004 = x731*x734
      x1005 = -x1004
      x1006 = x225 - x235
      x1007 = x1006*x237
      x1008 = x1007*x665
      x1009 = x1007*x666
      x1010 = x1006**2
      x1011 = x1010*x670
      x1012 = x1011*x667
      x1013 = x1010*x672
      x1014 = -x674 + x675 + x680 + x683 - x685
      x1015 = x1007*x67
      x1016 = x1006*x254
      x1017 = -x1015 - x1016 + x248 + x250 + x263
      x1018 = x1017*x72
      x1019 = x1018*x69
      x1020 = x1006*x253
      x1021 = -x1007*x691 + x722
      x1022 = x1017*x726*(-x1020*x720 + x1021 + x718 + x719) - x1019*x71
     &5 - x1019*x717
      x1023 = -x1017*x265
      x1024 = 0.5d0*rho_c
      x1025 = x1024*(x731*(-x1018*x714 + x1022 + x246*(-x1008 - x1009 + 
     &x1012 - x1013 + x1014*x672 + x664) - x265*(-x689 - x690 + x692 + x
     &694 + x696 - x697 - x698 + x701 + x703 + x705 + x706 + x707 + x709
     &) + x730) - 0.5d0*x738*(x1023 + x733) + x740)
      x1026 = -x1006*x672 + x243
      x1027 = x1026*x245
      x1028 = x1026*x246 + x732
      x1029 = x1023 + x1028
      x1030 = -x259 - x262
      x1031 = x1015 + x1016 + x1030 - x248 - x250
      x1032 = x1028 + x1031*x265
      x1033 = x1029*x731
      x1034 = x1024*(-0.5d0*x1029*x1032*x17*x737 + x731*(-x1018*x1026*x7
     &13 + x1022 + x1027*x665 + x1027*x666 - x246*(x1008 + x1009 - x1012
     & + x1013 - x664 + x687) + x265*(x1007*x693 + x1007*x695 + x1010*x2
     &54 + x1010 *x688 - x1010*x704 - x1011*x691 - x1014*x254 - x1014*x6
     &88 + x1020 *x700 + x1020*x702 + x710) + x728) + x740) - x1033
      x1035 = x284*(x1005 + x1025 + x1034 + x742)
      x1036 = 0.015625d0*x83
      x1037 = 1.74d0*x80
      x1038 = gamma_cc*x112
      x1039 = 0.509594848175284d0*x1038*x26
      x1040 = -x1037 + x1039
      x1041 = x53*x606
      x1042 = x1040*x1041
      x1043 = x37*x749
      x1044 = 1.33333333333333d0*x22
      x1045 = (0.101077332976288d0*x3 + 1.0d0)*log(1.0d0 + 29.6085746432
     &16677d0/( 0.76232752193529008d0*x11 + 9.8721297225692712d0*x13 + 3
     &.2918048099450625d0*x3 + 0.41002507094961249d0*x9))
      x1046 = 0.0337739986995691d0*x1045*x19
      x1047 = x1044 - x1046
      x1048 = x1047*x292
      x1049 = x1043*x1048
      x1050 = x24*x783
      x1051 = x1047*x1050*x316
      x1052 = 0.0012851258619735d0*x1043
      x1053 = 7.43196816500912d-6*x784
      x1054 = x1052 + x1053
      x1055 = x42*x47
      x1056 = x1052*x43
      x1057 = x29*(-x1044 + x1046)
      x1058 = x1057*x289
      x1059 = rho_c**(-6.66666666666667d0)*x25*x290
      x1060 = x1056 + x1059*(x1058 + 0.0012851258619735d0)
      x1061 = -x1055*(-x1049 - x1051 + x1054) + x1060
      x1062 = x326*x52
      x1063 = 1.0d0*x1062
      x1064 = x1045*x80
      x1065 = 0.0337739986995691d0*x1064
      x1066 = x49*x820
      x1067 = x1065 - 0.666666666666667d0*x1066
      x1068 = x1061*x1063 + x1067
      x1069 = 0.0271875d0*x744
      x1070 = x1038*x708
      x1071 = 0.00796241950273882d0*x1070
      x1072 = x53*x628
      x1073 = x1072*x82
      x1074 = -x1068*x85 - x1073*(-x1069 + x1071)
      x1075 = gamma_cc**7/tau_c**7
      x1076 = 0.04375d0*x83
      x1077 = 0.076125d0*x744
      x1078 = 0.0222947746076687d0*x1070
      x1079 = -x1068*x341 - x1073*(-x1077 + x1078)
      x1080 = x630*x95
      x1081 = 17.2922873341794d0*x1064
      x1082 = 341.333333333333d0*x1066
      x1083 = -512.0d0*x1062*(-x1055*(x1043*x1058 + x1050*x1057*x315 + x
     &1054) + x1060 ) - x1081 + x1082
      x1084 = 7.26848237132856d0*x882
      x1085 = 0.0582386976490866d0*x676 + x883
      x1086 = x364*x378
      x1087 = -x1084*x365 + x1085*x1086*x379 - x1086*x887 - 8.7221788455
     &9427d0*x376* x382
      x1088 = 21.8054471139857d0*x910
      x1089 = 0.0565491588134891d0*x160*x369
      x1090 = x1089 + x886
      x1091 = -x1084 - x1088 + x1090
      x1092 = 0.0524221118390615d0*x1045*x848 + x903
      x1093 = 3.0d0*x109
      x1094 = x116*x169*x880
      x1095 = x1090 - x1094
      x1096 = 3.0d0*x177
      x1097 = 1.2383028969055d0*x678
      x1098 = mu*x673
      x1099 = 3.00815243991335d0*x1098
      x1100 = 2.26173503853421d0*x868
      x1101 = x154*(x1097 + 1.39252411901946d0*x1098)
      x1102 = 6.0d0*x428
      x1103 = x1102*x858
      x1104 = 4.0d0*x155
      x1105 = 0.00678055584048577d0*x1045*x186*x357*x856 + 3.0d0*x159*( 
     &0.0177751651119307d0*x1045*x440*x853 + 0.0334604335759443d0*x894 )
     & + 0.133841734303777d0*x183*x446
      x1106 = x1104*x820 + x1105
      x1107 = 0.0469458581924011d0*x1064
      x1108 = x1064*x472
      x1109 = 0.0234729290962005d0*x1108
      x1110 = x1084*x142
      x1111 = x1085*x884
      x1112 = 8.72217884559427d0*x885
      x1113 = -x1089 - x1110 + x1111 - x1112 + x889
      x1114 = x1097 + x1099 + x1100 - x1101
      x1115 = x108*(x1093*(x1092 + x388*(x1084 + x1088 + x1113)) + x1096
     &*(x877 + x891* (x1094 + x1113)) + x1102*x1114*x993 - x1104*x157*x8
     &0 + x1105)
      x1116 = 0.463333333333333d0*x1115
      x1117 = 0.000561310970354912d0*x968
      x1118 = 0.0025258993665971d0*x467*(x1107 - x1109 - x1116)
      x1119 = 3.0d0*x80
      x1120 = x1110 - x1111 + x1112 + x888
      x1121 = x195*(-0.101321996098707d0*x1064 + x108*(x1093*(x1092 - x3
     &88*(x1091 + x1120)) + x1096*(x877 - x891*(x1095 + x1120)) - x1103*
     &x1114 + x1106) + x1119*(x1044*x53 - 0.666666666666667d0*x192))
      x1122 = 0.000140327742588728d0*x487
      x1123 = x1065 - 0.333333333333333d0*x108*(x1093*(x1092 - x388*(x10
     &87 + x1091)) + x1096*(x877 - x891*(x1087 + x1095)) + x1103*(-x1097
     & - x1099 - x1100 + x1101) + x1106) + x540*x553*x602*(-x1122*x214*x
     &959*(x1117 *x209 - x1118*x212 - x1121*x495*x501 - x1121*x515*x521 
     &- 1.06336126836261d-6*x205*x467*x988*(0.0938917163848021d0*x1064 -
     & 0.0469458581924011d0*x1108 - 0.926666666666667d0*x1115) + 4.72605
     &008161158d-7*x978) - x1122*x501*(-x1117 + x1118*x211 + x1121*x931)
     & + x466*x937*(-x1107 + x1109 + x1116) + 0.00018710365678497d0*x917
     &) - 0.666666666666667d0*x557*x80
      x1124 = x53*x603
      x1125 = x570*x92
      x1126 = x1125*x283
      x1127 = x1125*x79
      x1128 = -x579 + x584 - x73
      x1129 = x24*x270
      x1130 = -x667*x729
      x1131 = x223*x712
      x1132 = x1131*x244
      x1133 = x27*x69
      x1134 = 0.000133775426970164d0*x1133
      x1135 = x1134 + x691
      x1136 = x1130 + x1132*x582 - x1135*x727 + x249*x583 + x251*x583 - 
     &6.68877134850821d-5*x258 - 1.11479522475137d-5*x261 + x265*(x255 +
     & x721) + x267 + x66*x711
      x1137 = rho_c*(x1128*x1129*x268 + x1136)
      x1138 = x271*x284*(x1137 + x585)
      x1139 = x284*x52*x586
      x1140 = -x46 - x559 + x565
      x1141 = x323*x327
      x1142 = 1.9508916433149d-5*x310
      x1143 = x288*x37
      x1144 = 0.00578306637888076d0*x39
      x1145 = x1144*x807
      x1146 = x42*x563
      x1147 = x1143*x1146
      x1148 = x307*x35*x40*x563
      x1149 = x319*x36
      x1150 = x1055*x318
      x1151 = x1055*(x307 + x801 + x802)
      x1152 = x27*x42
      x1153 = x1144 + 3.34438567425411d-5*x1152
      x1154 = x1153*x46
      x1155 = x1154*x805
      x1156 = x325*(x1140*x1141*x17 + x52*(-x1142 - x1143 - x1145 + x114
     &7 + x1148 + x1149 + x1150 + x1151 - x1155))
      x1157 = 1.0d0*x85
      x1158 = x331*x570
      x1159 = x1125*x54
      x1160 = x52*x566
      x1161 = x1160*x284*x325
      x1162 = -x1156*x1157 - x1158*x573 + 0.033125d0*x1159 + 0.0165625d0
     &*x1161
      x1163 = x52*x589
      x1164 = x52*x595
      x1165 = 1.0d0*x341
      x1166 = -x1156*x1165 - x1158*x592 + 0.09275d0*x1159 + 0.046375d0*x
     &1161
      x1167 = x336*x52
      x1168 = 9.0d0*x335
      x1169 = x1168*x91
      x1170 = 0.2008125d0*x285
      x1171 = 0.6024375d0*x284*x79
      x1172 = 3.0d0*x342
      x1173 = 0.139125d0*x332
      x1174 = x1172 - x1173
      x1175 = x52*(x1142 + x1143 + x1145 - x1147 - x1148 - x1149 - x1150
     & - x1151 + x1155)
      x1176 = 512.0d0*x17
      x1177 = x1176*x810
      x1178 = gamma_cc*x1177*x324*x348*x566 - 512.0d0*x1175*x325
      x1179 = x210*x465
      x1180 = x216*x524
      x1181 = gamma_cc*x491
      x1182 = x1181*x512
      x1183 = x1182 + x213
      x1184 = x1181*x1183
      x1185 = x1184*x218
      x1186 = x490**(-2)
      x1187 = x215*x220
      x1188 = x217**(-2)
      x1189 = x1181*x203
      x1190 = x1189*x967 + x523
      x1191 = -x1184*x220 + x206*x988 + x219
      x1192 = x1188*x1191*x553*x999 - x552*x998*(gamma_cc*x497*x500 - x1
     &000*x1183* x1186*x499*x977 - x1179*x1185 + x1179 - x1180*x1185 + x
     &1180 - x1187*x527 - x1187*(x503*x963 + x526 + x987*x989 + 7.089075
     &12241738d-7*x991) + x1188*x1190*x214*x219*x32*x491*x527 - x208*x52
     &8 + x485*x513 + 4.13529382141014d-7*x986)
      x1193 = x80*x81
      x1194 = x1193*x569
      x1195 = x571*x586
      x1196 = x70*x72
      x1197 = rho_c**(-7.0d0)
      x1198 = 3020.29322777679d0*x1197
      x1199 = x1196*x1198*x69
      x1200 = 3.86816087015788d-7*x1199
      x1201 = x580*x582
      x1202 = x691*x70
      x1203 = x1202*x582
      x1204 = x1135*x69*x725
      x1205 = x1204*x581
      x1206 = x1128*x586 + x68*(-x1200 - x1201 - x1203 + x1205 + x252)
      x1207 = x1206*x17*x270*x83
      x1208 = x574*x81
      x1209 = x567*x571
      x1210 = x1157*x17
      x1211 = x1198*x45*x797
      x1212 = 4.83520108769735d-8*x1211
      x1213 = x561*x563
      x1214 = x1144*x43*x563
      x1215 = x42*x562*x804
      x1216 = x1154*x1215
      x1217 = x41*(-x1212 - x1213 - x1214 + x1216 + x560)
      x1218 = x1217*x325
      x1219 = x1140*x566*x810
      x1220 = -x1210*x1218 - x1210*x1219
      x1221 = -x1208*x573 - 0.033125d0*x1209 + x1220
      x1222 = 2.0d0*x596
      x1223 = x1165*x17
      x1224 = -x1218*x1223 - x1219*x1223
      x1225 = -x1208*x592 - 0.09275d0*x1209 + x1224
      x1226 = gamma_cc*x94
      x1227 = x325*x41
      x1228 = x1176*x1227*(x1212 + x1213 + x1214 - x1216 - x560) + x1177
     &*x566**2
      x1229 = x1181*x213 + 1.0d0
      x1230 = x1186*x203*x207 + x1229
      x1231 = 1d0/x1230
      x1232 = x1229*x1231
      x1233 = x1183*x1231
      x1234 = x1229*x213
      x1235 = x1231*x16
      x1236 = x1191*x1235*x218*(-x1181*x1233*x1234 + x1189*x206 + x1234)
     &/x221**2 + x1235*x491*(88.375800762871d0*x1181*x1197*x1232*x16**(-
     &11.34d0)* x201**8.34d0 + x1182*x1233 + x1183*x1232*x523 - x1184*x1
     &190*x1234 /x1230**2 - x512)/x221
      x1237 = 0.33512461593614d0*x838
      x1238 = x1072*x284
      x1239 = -x328*x348 + x330
      x1240 = x1239*x85
      x1241 = -x1240
      x1242 = x1005 + x279
      x1243 = x1242*x281 + x282
      x1244 = 0.02390625d0*x284
      x1245 = x641*x95
      x1246 = x256*x608
      x1247 = x126*x632
      x1248 = x1247*x256
      x1249 = 0.000207377145930177d0*x616
      x1250 = x271*x92
      x1251 = 0.00398120975136941d0*x112
      x1252 = x1239*x26
      x1253 = x1243*x256
      x1254 = gamma_cc*x586
      x1255 = rho_c*(x1136 + x1254*x735)
      x1256 = 0.000580656008604496d0*x616
      x1257 = 0.0111473873038343d0*x112
      x1258 = x103*x82
      x1259 = x570*x573*x632
      x1260 = gamma_cc**4*x52*x94
      x1261 = gamma_cc*x567
      x1262 = x1261*x611
      x1263 = x126*x26
      x1264 = x1254*x1263
      x1265 = x585**2
      x1266 = x1265*x270
      x1267 = x68*(x1200 + x1201 + x1203 - x1205 - x252)
      x1268 = x1266 + x1267
      x1269 = x24*x623
      x1270 = 0.00796241950273882d0*x26
      x1271 = -x1247*x1270
      x1272 = 0.000138251430620118d0*x616
      x1273 = x1271 + 0.00796241950273882d0*x609 + x623*(7.9951720025137
     &2d-7*x1133 - x1272*x583 + x1272)
      x1274 = 2.23864816070384d-6*x1133
      x1275 = 0.000387104005736331d0*x616
      x1276 = x623*(x1274 - x1275*x583 + x1275)
      x1277 = x1263*x569
      x1278 = x1119*x271
      x1279 = x1206*x1269
      x1280 = x16*(-x612 + x613)
      x1281 = 0.0222947746076687d0*x574
      x1282 = 0.0111473873038343d0*x1263
      x1283 = x1261*x1282 + 0.0119436292541082d0*x1263*x1280 + x1263*x12
     &81
      x1284 = x570*x643
      x1285 = gamma_cc**5/tau_c**5
      x1286 = 2.0d0*x1285*x92
      x1287 = rho_c**(-7.33333333333333d0)*x187
      x1288 = 0.00239245752217341d0*x1287
      x1289 = -x1288*x614
      x1290 = x1263*x586
      x1291 = x17*x623
      x1292 = -x1288*x632
      x1293 = 0.0222947746076687d0*x1248
      x1294 = x1135*x72
      x1295 = x1294*x69
      x1296 = x1295*x616
      x1297 = -x1135*x265 + x1202 + x580
      x1298 = x1129*x1297
      x1299 = x252*x65
      x1300 = 0.000267550853940329d0*x27
      x1301 = 0.000535101707880657d0*x258 + 8.91836179801095d-5*x261
      x1302 = 0.0231322655155231d0*x39
      x1303 = x1300*x69 + x1302
      x1304 = x1030 + x1295*x249 + x1295*x251 - x715 - x717
      x1305 = x1130 + x1132*x1294 + x1202*x716 + x1298*x734 + x1299*x711
     & - x1303*x727 + x1304 - x246*(x238*x667 + x665 + x666) + x265*(x13
     &00*x699 + x1301 + x723)
      x1306 = 0.016734375d0*rho_c
      x1307 = x1305*x1306
      x1308 = x1031*x72
      x1309 = x1026*x1131*x1294 - x1027*x667 + x1031*x1303*x726 - x1202*
     &x1308*x69 - x1299*x1308 + x1304 + x246*(x1007*x667 - x665 - x666) 
     &+ x265*( -x1020*x1300 + x1021 + x1301)
      x1310 = x1029*x1298 + x1309
      x1311 = 0.00796241950273882d0*x1248
      x1312 = 0.0059765625d0*rho_c
      x1313 = x1305*x1312
      x1314 = x1297**2*x270
      x1315 = x1314 + x68*(x1134*x1294 + x1135*x1196*x1302 + 1.547264348
     &06315d-6*x1199 - x1204*x1303 - x1300)
      x1316 = x52*x95
      x1317 = 0.016734375d0*x1316
      x1318 = x271*x335
      x1319 = x16*x241*x358
      x1320 = rho_c*x280
      x1321 = x335*x79
      x1322 = x335*x54
      x1323 = 0.0165625d0*x1141 - 0.033125d0*x350 + 0.00214384266109126d
     &0*x352
      x1324 = -0.033125d0*x1322 + x1323
      x1325 = x53*x647
      x1326 = 0.046375d0*x1141 - 0.09275d0*x350 + 0.00600275945105553d0*
     &x352
      x1327 = -0.09275d0*x1322 + x1326
      x1328 = x284*x53
      x1329 = 3.0d0*x1328
      x1330 = -x1172 + x1173
      x1331 = x656*x658
      x1332 = x103*x660
      x1333 = 0.0165625d0*x1261
      x1334 = x1119*x16*x82
      x1335 = 0.046375d0*x1261
      x1336 = gamma_cc*x103*x335*x52*x93
      x1337 = x1280*x611
      x1338 = -0.0111473873038343d0*x1277 + x1337 + x624
      x1339 = x1285/rho_c**5
      x1340 = -x126*x1270*x614
      x1341 = x574*x611
      x1342 = x53*x95
      x1343 = x643*x660
      x1344 = 2.0d0*x95
      x1345 = 33.6d0*x86
      x1346 = x32*x661/tau_c**4
      x1347 = x51 + x78
      x1348 = x1347*x83
      x1349 = 0.011953125d0*x1348 + x87
      x1350 = 0.03346875d0*x1348 + x89
      x1351 = x1350*x53
      x1352 = x1351*x95
      x1353 = -x1352 + 512.0d0
      x1354 = x1349*x1353
      x1355 = -rho_c*(-x104*(x100 - x1354) + x222)
      x1356 = 0.25d0*x53*x76
      x1357 = 0.5d0*x53*x59
      x1358 = x1356 - x1357
      x1359 = x49*x53
      x1360 = 0.5d0*x1359
      x1361 = x22*x53
      x1362 = 1.0d0*x1361
      x1363 = x1360 - x1362
      x1364 = x1024*x280 + x1024*x331 + x1358 + x1363
      x1365 = x1328*x1347
      x1366 = x1244*x1364 - 0.035859375d0*x1365 + x333
      x1367 = 0.0669375d0*x284
      x1368 = x1364*x1367
      x1369 = 0.10040625d0*x1365
      x1370 = x1351*x336 - x1368 + x1369 + x344
      x1371 = x1370*x95
      x1372 = x1349*x53
      x1373 = x102*(x1353*x1366 + x1371*x1372 + x355)
      x1374 = x1354 + x361
      x1375 = x1374*x16
      x1376 = -x104*x1374 + x556*(-x1373 - x1375*x360 + x555) + x558
      x1377 = x1347*x16
      x1378 = x1377*x571
      x1379 = 0.00144576659472019d0*x616
      x1380 = x270*(-x1379*x583 + x1379 + x28*x69)
      x1381 = 0.00144576659472019d0*x39*x43
      x1382 = x325*(-x1146*x1381 + 4.18048209281763d-6*x1152 + x1381)
      x1383 = x1380 + x1382
      x1384 = x1383*x627 + x578
      x1385 = 0.02390625d0*x1378 + x1384 + x576
      x1386 = x1350*x16
      x1387 = 0.0669375d0*x83
      x1388 = gamma_cc*(0.0669375d0*x1378 + x1383*x1387 + x593)
      x1389 = 3.0d0*x1386 + x1388
      x1390 = x1372*x596
      x1391 = x1353*x1385 - x1389*x1390 + x568
      x1392 = x103*x1391
      x1393 = x605*(-x1392 + x604)
      x1394 = x606 + x628
      x1395 = x1394*x16
      x1396 = 0.00557369365191717d0*x1263
      x1397 = 9.67760014340827d-5*x616
      x1398 = 5.5966204017596d-7*x1133 - x1397*x583 + x1397
      x1399 = x1398*x623
      x1400 = x1395*x1396 + x1399 + x615
      x1401 = x1394*x83
      x1402 = -0.011953125d0*x1401 + x629
      x1403 = x1342*x1402
      x1404 = x1352 - 512.0d0
      x1405 = 0.0019906048756847d0*x1263
      x1406 = 3.45628576550296d-5*x616
      x1407 = 1.99879300062843d-7*x1133 - x1406*x583 + x1406
      x1408 = x1407*x623
      x1409 = x1395*x1405 + x1408 + x633
      x1410 = x1400*x1403 + x1404*x1409
      x1411 = x1410*x644
      x1412 = 0.02390625d0*x59
      x1413 = 0.011953125d0*x76
      x1414 = x1412 - x1413 + 0.0146875d0*x22 - 0.00734375d0*x49
      x1415 = 0.0669375d0*x59
      x1416 = 0.03346875d0*x76
      x1417 = x1415 - x1416 + 0.041125d0*x22 - 0.0205625d0*x49
      x1418 = x1417*x83
      x1419 = 0.10040625d0*x1348 - x1418 + x648
      x1420 = x1419*x656
      x1421 = gamma_cc*x1349
      x1422 = x1353*x1414 + x1420*x1421
      x1423 = -x1422*x662
      x1424 = x1024*x741 + x1024*x813 + x280 + x296 + x329 - 2.0d0*x350
      x1425 = x1364*x745
      x1426 = x1347*x53
      x1427 = x1426*x745
      x1428 = x1366*x95
      x1429 = x1342*x1349
      x1430 = x102*x1375
      x1431 = -x1002*x1375 + x1003 - 0.00390625d0*x1373 + x556*(x1001 - 
     &x102*(x1353*( x1244*x1424 - 0.1434375d0*x1425 + 0.1434375d0*x1427 
     &+ x816) + 2.0d0*x1370*x1428 + x1429*(-x1350*x821 - x1367*x1424 + 0
     &.401625d0 *x1425 - 0.401625d0*x1427 + x819*(x1368 - x1369 + x817) 
     &+ x824) + x837) - x1373*x839 + x1430*x842 - x1430*x843)
      x1432 = x1024*x1068
      x1433 = x1025 + x1242 + x1432
      x1434 = x1040*x1401*x53
      x1435 = x1074 + 0.0078125d0*x1434
      x1436 = -x276 + x278
      x1437 = -x1024*(x1004 + x1436) + x1358 - x1360 + x1362
      x1438 = 0.00320044921875d0*x1075/rho_c**9
      x1439 = x1079 + 0.021875d0*x1434
      x1440 = x1024*x1156 + 0.25d0*x1137*x271 + x1380*x52 + x1382*x52
      x1441 = x1125*x1364
      x1442 = x1383*x52
      x1443 = x1125*x1426
      x1444 = x1385*x52
      x1445 = x52*x596
      x1446 = x1168*x1351
      x1447 = 0.2008125d0*x284
      x1448 = x1364*x1447
      x1449 = 0.30121875d0*x1365
      x1450 = x1124 - x1392*x52 + x556*(-x102*(x1178 + x1353*(x1162 + x1
     &244*x1440 + 0.0478125d0*x1441 - x1442*x286 - 0.07171875d0*x1443) -
     & x1366* x1389*x1445 + x1371*x1444 + x1390*(-gamma_cc*(x1166 + x136
     &7*x1440 + 0.133875d0*x1441 - x1442*x339 - 0.2008125d0*x1443) + x11
     &67* x1388 + x1174 + x1446 - x1448 + x1449)) + x1192 - x1391*x360)
      x1451 = x1193*x1377
      x1452 = gamma_cc*x1383
      x1453 = x1193*x1452
      x1454 = x1135*x581*x69*x724
      x1455 = x270*x68
      x1456 = x17*(0.25d0*x1128*x585*x736 + 0.5d0*x1219 + x1227*(x1153*x
     &1215*x1381 - 2.41760054384867d-8*x1211 + x28 - x559*x563 - x564) +
     & x1455*( -9.6704021753947d-8*x1199 + x1379*x1454 - x40*x582*x70 - 
     &x560* x583 + x560))
      x1457 = -x605*(-x103*(x1222*x1389*x1444 + x1226*x1372*(6.0d0*x1386
     & + 6.0d0*x1388 + x32*(x1225 + x1387*x1456 + 0.0669375d0*x1451 + 0.
     &26775d0*x1453 )) + x1228 - x1353*(x1221 + 0.02390625d0*x1451 + 0.0
     &95625d0*x1453 + x1456*x627)) + x1236)
      x1458 = x1337 - x1377*x1396 + x1399
      x1459 = x1341 - x1377*x1405 + x1408
      x1460 = x126*x256
      x1461 = x1460*x574
      x1462 = x1377*x1460
      x1463 = 0.000103688572965089d0*x616
      x1464 = x26*x331
      x1465 = x1251*x1464
      x1466 = x1364*x256
      x1467 = 0.000290328004302248d0*x616
      x1468 = x1257*x1464
      x1469 = x1258*(rho_c*(x1237*x1410 - x1353*(x1250*(0.0059765625d0*x
     &1137 + x1407) - x1250*(5.99637900188529d-7*x1133 - x1463*x583 + x1
     &463) - x1251* x1466 - 0.0185789788397239d0*x1461 + 0.0112800942955
     &467d0*x1462 + x1465) - x1371*x1459 + x1428*x1458 - x1429*(-x1250*(
     &0.016734375d0 *x1137 + x1398) + x1250*(1.67898612052788d-6*x1133 -
     & x1467*x583 + x1467) + x1257*x1466 + x1458*x336 + 0.05202114075122
     &7d0*x1461 - 0.0315842640275307d0*x1462 - x1468)) + x1410)
      x1470 = 0.0059765625d0*x17
      x1471 = x1271 + x1395*x611 + x640
      x1472 = x1284*(x1260*x1400*(x1259 + x1384 - 0.02390625d0*x1395*x57
     &1) + x1316* x1389*x1409 + x1403*(-0.0278684682595859d0*x1263*x1377
     & + x1278* x1398 + 0.016734375d0*x1279 - x1282*x1452 + x1283 + x624
     &) + x1404 *(-gamma_cc*x1268*x1470*x623 + x1262 - x1452*x611 + x147
     &1))
      x1473 = x1287*x1395
      x1474 = x52*x80
      x1475 = x1265*x1474*x736
      x1476 = x1455*x1474*x17
      x1477 = x644*(x1286*x1400*x1409 - x1403*(x1289 + 0.005573693651917
     &17d0*x1290 + 0.00334944053104278d0*x1473 + 0.016734375d0*x1475*x17
     & + x1476*( 6.47312545615482d-9*x1199 - x1397*x1454 + x582*x620 + x
     &618 - x619 )) - x1404*(0.0019906048756847d0*x1290 + x1292 + x1470*
     &x1475 + 0.00119622876108671d0*x1473 + x1476*(2.31183052005529d-9*x
     &1199 - x1406*x1454 + x582*x637 + x635 - x636)))
      x1478 = 0.0008001123046875d0*x1285*x1297*x271/rho_c**8
      x1479 = x1395*x1460
      x1480 = -x1295*x1397 + x621
      x1481 = -x1295*x1406 + x638
      x1482 = x1258*x1318*(0.000200028076171875d0*x1314*x1339*x52 - x131
     &5*x1317*x1402 - x1315*x1404*x1470)
      x1483 = rho_c*x331
      x1484 = x1347*x655
      x1485 = x1414*x53
      x1486 = x1421*x656
      x1487 = -x1332*(rho_c*(x1319*x1422 + x80*(gamma_cc*x1366*x1420 + x
     &1353*(x1324 + 0.07171875d0*x1484 - x335*(0.02390625d0*x1320 + 0.02
     &390625d0* x1359 - 0.0478125d0*x1361 - x1412*x53 + x1413*x53 + 0.02
     &390625d0* x1483)) + x1371*x1485 + x1486*(x1329*x1417 + x1330 - x14
     &46 + x1448 - x1449 - x83*(x1327 + 0.2008125d0*x1484 - x335*( 0.066
     &9375d0*x1320 + 0.0669375d0*x1359 - 0.133875d0*x1361 - x1415* x53 +
     & x1416*x53 + 0.0669375d0*x1483))))) + x1422*x820)
      x1488 = -x1336*(-x1342*x1389*x1414 + x1353*(x1333 - 0.0478125d0*x1
     &377 - 0.0478125d0*x1452 + 0.033125d0*x574) + x1385*x1420*x32 + x14
     &86*( -x1334*x1417 + 9.0d0*x1386 + 3.0d0*x1388 - x83*(x1335 - 0.133
     &875d0*x1377 - 0.133875d0*x1452 + 0.09275d0*x574)))
      x1489 = -x1343*(-x1339*x1458*x1485 + x1342*x1419*x1459 - x1353*x14
     &71 + 3.0d0* x1429*x1458 + x1429*(x1282*x1395 + x1340 + x624))
      x1490 = -x1346*(x1344*x1419*x1485 - x1353*(0.0440625d0*x22 - 0.022
     &03125d0*x49 + 0.07171875d0*x59 - 0.035859375d0*x76) + x1486*(x1345
     & - 0.401625d0 *x1348 + 6.0d0*x1418 + x83*(0.123375d0*x22 - 0.06168
     &75d0*x49 + 0.2008125d0*x59 - 0.10040625d0*x76)))
      x1491 = x1034 + x1432 + x279
      x1492 = x1024*(x1033 + x1436) - x1356 + x1357 + x1363
      x1493 = x1032*x1298 + x1309
      x1494 = x1036 - 1.0d0
      x1495 = x1076 - 2.8d0
      x1496 = x1495*x54
      x1497 = x1496*x95
      x1498 = -x1497 + 512.0d0
      x1499 = x1494*x1498*x51
      x1500 = 0.05515625d0*x1238
      x1501 = -2.0d0*x1361 + x50*x53
      x1502 = x1239*x281 + x1501
      x1503 = x1244*x1502
      x1504 = x1239*x341
      x1505 = -0.1544375d0*x1238 - x1367*x1502 + x1504
      x1506 = x1072*x95
      x1507 = x102*(-x1506*(-x1036 + 1.0d0)*(x1072*x336*(-x1076 + 2.8d0)
     & + x1505) + x351 - x353 + x830*x831 + (x1497 - 512.0d0)*(x1241 + x
     &1500 + x1503))
      x1508 = x1499 + x361
      x1509 = x1508*x16
      x1510 = x571*x574
      x1511 = 0.03125d0*x1510 + x567*x627 + x578
      x1512 = x1495*x574
      x1513 = gamma_cc*(x1387*x567 + 0.0875d0*x1510 + x591)
      x1514 = 3.0d0*x1512 + x1513
      x1515 = x1494*x54
      x1516 = x1515*x596
      x1517 = x1498*x1511 - x1514*x1516 + x568
      x1518 = x103*x1517
      x1519 = x1498*x628
      x1520 = 0.175d0*x22 - 0.0875d0*x49
      x1521 = x1520*x83
      x1522 = x1495*x51
      x1523 = -x1521 + 3.0d0*x1522
      x1524 = gamma_cc*x1322*x1494*x654
      x1525 = 0.03125d0*x1519 + x1523*x1524
      x1526 = 2.0d0*x1141 + x281*x813 - 4.0d0*x350 + x947
      x1527 = x1501 + x281*x331
      x1528 = x1527*x745
      x1529 = x1240 - x1500 - x1503
      x1530 = x1496*x336 + x1505
      x1531 = x1515*x95
      x1532 = x102*x1509
      x1533 = x54*x82
      x1534 = x54*(x1037 - x1039)
      x1535 = x1063*(x1055*(x1049 + x1051 - x1052 - x1053) + x1056 + x10
     &59*(-x1048 + 0.0012851258619735d0)) + x1067
      x1536 = x1072*x1125
      x1537 = x1239*x570
      x1538 = x1125*x1502
      x1539 = -x1175 + x1261*x324*x809
      x1540 = x1539*x325
      x1541 = x325*(rho_c*x1539 + x1160)
      x1542 = x1445*x1514
      x1543 = 0.4633125d0*x1238
      x1544 = x1168*x1496
      x1545 = 3.0d0*x1504
      x1546 = x1447*x1502
      x1547 = x1193*x574
      x1548 = x17*x325*(x1140*x567 + x1217)
      x1549 = x1527*x256
      x1550 = x1523*x656
      x1551 = 0.03125d0*x1506
      PBE_value = x54
      PBE_beta_value = x79
      PBE_alpha_value = x79
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = -rho_c*(-x104*(x100 - x98) + x222)
      d1E(1) = -x104*x362 + x556*(-x356 - x360*x363 + x555) + x558
      d1E(3) = x605*(-x599 + x604)
      d1E(4) = x642*x644
      d1E(6) = -x659*x662
      d2E(1) = -x1002*x363 + x1003 - 0.00390625d0*x356 + x556*(x1001 - x
     &102*(2.0d0*x334 *x345 + x825*(-0.0669375d0*x743 + 0.401625d0*x746 
     &- 0.80325d0* x747 + x818*x819 - x821*x90 + x824) + x837 + x97*(0.0
     &2390625d0* x743 - 0.1434375d0*x746 + 0.286875d0*x747 + x816)) - x3
     &56*x839 + x840*x842 - x840*x843)
      d2E(3) = rho_c*(x103*(x1080*(0.0669375d0*x1035 + x1042*x1076 + x10
     &79) + x1083 + x631*(0.02390625d0*x1035 + x1036*x1042 + x1074) + 0.
     &0008001123046875d0*x1075*(x1005 + x1033)**2/rho_c**7) + x1123)
      d2E(4) = x1124 - x52*x599 + x556*(-x102*(x1163*x345 - x1164*x334*x
     &596 + x1178 + x597*(-gamma_cc*(0.133875d0*x1126 - 0.401625d0*x1127
     & + 0.03346875d0*x1138 - 0.10040625d0*x1139 + x1166) + x1167*x594 +
     & x1169 - x1170 + x1171 + x1174) + x97*(0.0478125d0*x1126 - 0.14343
     &75d0*x1127 + 0.011953125d0*x1138 - 0.035859375d0*x1139 + x1162)) +
     & x1192 - x360*x598)
      d2E(6) = -x605*(-x103*(x1163*x1222*x595 + x1226*x346*(x32*(0.13387
     &5d0*x1194 + 0.133875d0*x1195 + 0.03346875d0*x1207 + x1225) + 6.0d0
     &*x590 + 6.0d0*x594) + x1228 - x97*(0.0478125d0*x1194 + 0.0478125d0
     &*x1195 + 0.011953125d0*x1207 + x1221)) + x1236)
      d2E(7) = x1258*(rho_c*(-x1080*(0.0631685280550613d0*x1246 - 0.0520
     &21140751227d0* x1248 - x1250*(0.03346875d0*x1255 + x622) + x1250*(
     & 3.35797224105576d-6*x1133 - x1256*x583 + x1256) - x1252*x1257 + x
     &1253*x1257 + x336*x625) + x1237*x642 + x1245*(-x337 + x818) + x626
     &*(x1041*x286 - 0.0165625d0*x1238 + x1241 + x1243*x1244) + x631*(-0
     &.0225601885910933d0*x1246 + 0.0185789788397239d0*x1248 + x1250*(0.
     &011953125d0*x1255 + x639) - x1250*(1.19927580037706d-6* x1133 - x1
     &249*x583 + x1249) + x1251*x1252 - x1251*x1253)) + x642)
      d2E(9) = x1284*(x1080*(-0.00557369365191717d0*x1264 + x1276 - 0.05
     &57369365191717d0*x1277 + x1278*x622 + 0.03346875d0*x1279 + x1283) 
     &+ x1164*x1245 + x1260*x625*(x1259 - 0.0478125d0*x571*x607 + x588) 
     &+ x631*(x1262 - 0.0019906048756847d0*x1264 - 0.011953125d0*x1268*x
     &1269 + x1273))
      d2E(10) = x644*(-x1080*(0.00669888106208556d0*x1287*x607 + x1289 +
     & 0.0111473873038343d0*x1290 + x1291*(0.03346875d0*x1266 + 0.033468
     &75d0*x1267)) + x1286*x625*x641 - x631*(x1288*x607 + 0.003981209751
     &36941d0*x1290 + x1291*(0.011953125d0*x1266 + 0.011953125d0*x1267) 
     &+ x1292))
      d2E(12) = x644*(x1080*(-0.0222947746076687d0*x1246 + x1250*(x1274 
     &- 0.000193552002868166d0*x1296 + x1306*x1310 + x1307 + 0.000387104
     &005736331d0*x616) + x1293) + x631*( -0.00796241950273882d0*x1246 +
     & x1250*(7.99517200251372d-7*x1133 - 6.91257153100591d-5*x1296 + x1
     &310*x1312 + x1313 + 0.000138251430620118d0*x616) + x1311))
      d2E(15) = -0.00390625d0*x102*x1315*x1318*x82*(x1317*x88 - x17*(-0.
     &0059765625d0*x96 + 3.06d0))
      d2E(16) = -x1332*(rho_c*(x1319*x659 + x80*(gamma_cc*x334*x657 + x1
     &325*x345 + x1331 *(-x1169 + x1170 - x1171 + x1329*x651 + x1330 - x
     &83*(0.401625d0* x1321 + x1327 - x335*(0.133875d0*x1320 - x53*x649 
     &+ x53*x650))) + x97*(0.1434375d0*x1321 + x1324 - x335*(0.0478125d0
     &*x1320 - x53* x645 + x53*x646)))) + x659*x820)
      d2E(17) = -x1336*(-x1325*x595*x95 + x1331*(-x1334*x651 + 9.0d0*x59
     &0 + 3.0d0*x594 + x83*(0.0669375d0*x1254 - x1335 - 0.26775d0*x607 +
     & 0.09275d0*x632 )) + x32*x589*x657 - x97*(0.02390625d0*x1254 - x13
     &33 - 0.095625d0 *x607 + 0.033125d0*x632))
      d2E(19) = -x1343*(-x1273*x97 - x1325*x1338*x1339 + 3.0d0*x1338*x82
     &5 + x1342*x653*( x1341 - x569*x611 + x640) + x825*(x1276 + x1340 +
     & 0.0222947746076687d0*x609))
      d2E(21) = -x1346*(x1325*x1344*x653 + x1331*(x1345 + 6.0d0*x652 + x
     &83*(-0.27825d0* x22 + 0.139125d0*x49 + 0.401625d0*x59 - 0.2008125d
     &0*x76) - 0.80325d0*x84) - x97*(-0.099375d0*x22 + 0.0496875d0*x49 +
     & 0.1434375d0*x59 - 0.07171875d0*x76))
      end if
      if ((PBE_alpha_value .ge. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = x1355
      d1E(1) = x1376
      d1E(3) = x1393
      d1E(4) = x1411
      d1E(6) = x1423
      d2E(1) = x1431
      d2E(3) = rho_c*(x103*(x1083 + x1403*(x1367*x1433 + x1439) + x1404*
     &(x1244*x1433 + x1435) + x1437**2*x1438) + x1123)
      d2E(4) = x1450
      d2E(6) = x1457
      d2E(7) = x1469
      d2E(9) = x1472
      d2E(10) = x1477
      d2E(12) = x644*(x1403*(x1250*(x1307 + x1480) + x1293 - 0.011147387
     &3038343d0*x1479 ) + x1404*(x1250*(x1313 + x1481) + x1311 - 0.00398
     &120975136941d0* x1479) + x1437*x1478)
      d2E(15) = x1482
      d2E(16) = x1487
      d2E(17) = x1488
      d2E(19) = x1489
      d2E(21) = x1490
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .ge. PB
     &E_value)) then
      E = x1355
      d1E(1) = x1376
      d1E(3) = x1393
      d1E(4) = x1411
      d1E(6) = x1423
      d2E(1) = x1431
      d2E(3) = rho_c*(x103*(x1083 + x1403*(x1367*x1491 + x1439) + x1404*
     &(x1244*x1491 + x1435) + x1438*x1492**2) + x1123)
      d2E(4) = x1450
      d2E(6) = x1457
      d2E(7) = x1469
      d2E(9) = x1472
      d2E(10) = x1477
      d2E(12) = -x644*(x1353*(x1250*(x1312*x1493 + x1481) - 0.0079624195
     &0273882d0*x1461 + 0.00398120975136941d0*x1462) - x1429*(x1250*(x13
     &06*x1493 + x1480) - x1281*x1460 + 0.0111473873038343d0*x1462) + x1
     &478*x1492)
      d2E(15) = x1482
      d2E(16) = x1487
      d2E(17) = x1488
      d2E(19) = x1489
      d2E(21) = x1490
      end if
      if ((PBE_alpha_value .lt. PBE_value) .and. (PBE_beta_value .lt. PB
     &E_value)) then
      E = -rho_c*(-x104*(x100 - x1499) + x222)
      d1E(1) = -x104*x1508 + x556*(x1507 - x1509*x360 + x555) + x558
      d1E(3) = x605*(-x1518 + x604)
      d1E(4) = 0
      d1E(6) = -x1525*x662
      d2E(1) = -x1002*x1509 + x1003 + 0.00390625d0*x1507 + x556*(x1001 -
     & x102*(-x1344* x1529*x1530 + x1498*(x1244*x1526 - 0.1434375d0*x152
     &8 + 0.2371875d0*x748 + x815) - x1531*(x1367*x1526 + 12.0d0*x1496*x
     &80 + x1505*x819 - 0.401625d0*x1528 + 0.664125d0*x748 - x822 + x823
     &) + x837) + x1507*x839 + x1532*x842 - x1532*x843)
      d2E(3) = rho_c*(-x103*(512.0d0*x1061*x1062 + x1081 - x1082 + x1498
     &*(x1036*x1534 - x1533*(x1069 - x1071) + x1535*x627 - x1535*x85) - 
     &x1531*(x1076* x1534 + x1387*x1535 - x1533*(x1077 - x1078) - x1535*
     &x341)) + x1123)
      d2E(4) = x1124 - x1518*x52 + x556*(-x102*(x1178 + x1316*x1511*x153
     &0 - x1498*( x1157*x1540 + 0.05515625d0*x1161 - x1244*x1541 - 0.110
     &3125d0* x1536 + x1537*x573 - 0.0478125d0*x1538) + x1516*(gamma_cc*
     &( 0.1544375d0*x1161 + x1165*x1540 - x1367*x1541 - 0.308875d0*x1536
     & + x1537*x592 - 0.133875d0*x1538) + x1167*x1513 - x1543 + x1544 + 
     &x1545 - x1546) + x1529*x1542) + x1192 - x1517*x360)
      d2E(6) = -x605*(-x103*(x1226*x1515*(6.0d0*x1512 + 6.0d0*x1513 + x3
     &2*(0.175d0* x1209 + x1224 + x1387*x1548 + 0.0875d0*x1547)) + x1228
     & - x1498*( 0.0625d0*x1209 + x1220 + 0.03125d0*x1547 + x1548*x627) 
     &+ 2.0d0* x1511*x1542) + x1236)
      d2E(7) = -x644*(x1498*(-x1251*x1549 + 0.00398120975136941d0*x1461 
     &+ x1465) - x1531*(-x1257*x1549 + 0.0111473873038343d0*x1461 + x146
     &8))
      d2E(9) = 0
      d2E(10) = 0
      d2E(12) = 0
      d2E(15) = 0
      d2E(16) = -x1332*(rho_c*(x1319*x1525 + x80*(-gamma_cc*x1529*x1550 
     &+ x1498*( 0.1103125d0*x1322 + x1323 - x335*(0.0478125d0*x1359 - 0.
     &095625d0* x1361 + 0.0478125d0*x1483)) + x1524*(x1329*x1520 + x1543
     & - x1544 - x1545 + x1546 - x83*(0.308875d0*x1322 + x1326 - x335*( 
     &0.133875d0*x1359 - 0.26775d0*x1361 + 0.133875d0*x1483))) + x1530* 
     &x1551)) + x1525*x820)
      d2E(17) = -x1336*(-x1498*(0.03125d0*x1261 - 0.0625d0*x632) + x1511
     &*x1550*x32 - x1514*x1551 + x1524*(-x1334*x1520 + 9.0d0*x1512 + 3.0
     &d0*x1513 + x83*(0.0875d0*x1261 - 0.175d0*x632)))
      d2E(19) = 0
      d2E(21) = -x1346*(0.0625d0*x1506*x1523 - 0.09375d0*x1519 + x1524*(
     &6.0d0*x1521 - 12.0d0*x1522 + x83*(0.525d0*x22 - 0.2625d0*x49)))
      end if
      end subroutine